1module Main where
2
3import Millisecond06
4
5main :: IO ()
6main = do
7 inputStr <- readFile "input.txt"
8 let input = map (\l -> read l :: Int) . words $ init inputStr
9 (part1, part2) = solve input
10 in putStrLn $ "Part 1: " ++ (show part1) ++ "\n" ++ "Part 2: " ++ (show part2)