HS2

-- Like sscanf(s, "%d")
scanInt :: String -> Int
scanInt = read :: String -> Int

-- Parse a string that contains a list of numbers
readInts :: String -> [Int]
readInts line = map scanInt (words line)

calculate :: [Int] -> String
calculate xs = show $ sum xs

main = do
  line <- getLine
  xs <- readInts line
  putStrLn $ calculate xs