module Main where

import Commons
import qualified Part1
import qualified Part2


main = do modules <- parse
          let (part1Low, part1High) = Part1.pressButtonNTimes modules 1000
          print (part1Low * part1High)
          let part2Res = Part2.pressButtonUntilDone modules
          print $ foldl lcm 1 part2Res