module Main where

import Prelude
import System.IO

-- Печатает в файл любой объект, который можно перевести в строку
printToFile :: Show t => t -> IO ()
printToFile x = writeFile "aplusb.out" $ show x ++ "\n"


main :: IO ()
main = do
    -- читаем весь файл как одну строку
    str <- readFile "aplusb.in"
    -- words получает список слов, разделенных пробельными символами ( в том числе \n)
    -- map (read :: String -> Int) приводит каждое слово к Int
    printToFile $ sum $ map (read :: String -> Int) (words str)