import System.IO
import Control.Monad

getInts :: FilePath -> IO [Integer]
getInts path = do
    contents <- readFile path
    let ints = (map read . lines $ contents) :: [Integer]
    return ints

main = do
    putStrLn "The solution is: "