module Main where

import Commons
import Data.Array (bounds)
import Data.Map ((!))
import qualified Part1
import qualified Part2


main = do city <- parse
          let part1Res = Part1.getAllAstar city
          print $ minimum part1Res
          let part2Res = Part2.getAllAstar city
          print $ minimum part2Res