module Main where

import Commons
import qualified Part1
import qualified Part2


main = do grid <- parse
          let part1Res = Part1.getCycleLength grid `div` 2
          print part1Res
          let part2ResTmp = Part2.getCycleArea grid
          let part2Res = if part2ResTmp >= 0 then part2ResTmp
                                             else abs part2ResTmp - 2 * part1Res
          print part2Res