module Main where

import Commons
import qualified Part1
import qualified Part2


main = do hail <- parse
          let part1Res = Part1.findIntersections (200000000000000, 400000000000000) hail
          print $ length part1Res
          let part2Res = Part2.getCoords hail
          print $ sum part2Res