module Day1A where

read' :: String -> Int
read' ('+':str) = read str
read' str = read str

main :: IO ()
main = interact $ show . sum . map read' . lines