module Main where

import Commons
import qualified Part1
import qualified Part2


main = do histories <- parse
          let part1Res = sum $ Part1.getNextValues histories
          print part1Res
          let part2Res = sum $ Part2.getNextValues histories
          print part2Res