1module Main where
2
3import AocDay06
4import Data.List.Split
5
6main :: IO ()
7main = do
8 inputStr <- readFile "input.txt"
9 putStr $ "Code 1: " ++ codeFromLines (init $ splitOn "\n" inputStr) ++ "\n" ++
10 "Code 2: " ++ codeFromLines2 (init $ splitOn "\n" inputStr) ++ "\n"