module Main where

import Commons
import qualified Part1
import qualified Part2


main = do trailsMap <- parse
          let part1Res = Part1.getAllTrails trailsMap
          print $ maximum $ map length part1Res
          let compactPaths = Part2.getCompactPaths trailsMap part1Res
          let part2Res = Part2.getAllTrails trailsMap compactPaths
          print $ maximum $ map (foldl (\ s t -> s + snd t) 0) part2Res