module Main where

import Commons
import qualified Part1
import qualified Part2


main = do image <- parse
          let part1Res = sum . concat $ Part1.computeDistances image
          print part1Res
          let part2Res = sum . concat $ Part2.computeDistances image
          print part2Res