readDigits = map read <$> words <$> getLine :: IO [Integer]
readDigits'= map read <$> lines <$> getContents :: IO [Integer]

main :: IO ()
main = do
    n <- readLn :: IO Integer
    putStrLn . show . sum =<< readDigits'