sample.hs

main :: IO ()

main = do
    str <- getLine
    let [a,b] = words str
    return ((read a :: Int) + (read b :: Int))

main = do
  str <- getLine
  print $ sum $ map read $ words str