module Main where

import Prelude
import System.IO


main :: IO ()
main = do
    -- пусть во входном файле числа в разных строках
    -- и мы хотим их считать отдельно
    withFile "aplusb.in" ReadMode (\handleIn -> do
        -- handle -- дескриптор файла, с помощью которого мы читаем из него
        -- файл закрывается сам
        aStr <- hGetLine handleIn
        bStr <- hGetLine handleIn
        -- переводим в Integer
        let a = read aStr :: Integer
        let b = read bStr :: Integer
        withFile "aplusb.out" WriteMode (\handleOut -> do
            hPutStr handleOut $ show (a + b) ++ "\n"))