readDigits = map read <$> words <$> getLine :: IO [Integer]
main :: IO ()
main = do
    n <- readLn :: IO Integer
    putStrLn . show . sum =<< readDigits