a_plus_b.hs 95 B

12345678
  1. main :: IO()
  2. main = do
  3. s <- getLine
  4. let rs = (map read (words s)) :: [Int]
  5. print (sum rs)