1 2 3 4 5 6 7 8 9 10 11
module Main where import Input import IntCode main :: IO () main = do initMem <- parse . head <$> getInput 5 print (snd (run initMem [1])) print (snd (run initMem [5]))