split :: String -> [String] split [] = [] split xs = let (x, rest) = span (/= ' ') xs in x : if rest == "" then [] else split (tail rest) main :: IO () main = do v <- getLine let vs = map read (split v) :: [Int] putStr $ show $ sum vs