main :: IO ()
main =
  do cmds <- parseOrDie parser <$> readInputFile 1
     let path = computePath cmds
     print (part1 path)
     print (part2 path)

-- | Given a list of steps determine the ultimate Manhattan-distance from
-- the starting position.
main :: IO ()
main =
  do cmds <- parseOrDie parser <$> readInputFile 1
     let path = computePath cmds
     print (part1 path)
     print (part2 path)

-- | Given a list of steps determine the ultimate Manhattan-distance from
-- the starting position.
main =
  do cmds <- parseOrDie parser <$> readInputFile 1
     let path = computePath cmds
     print (part1 path)
     print (part2 path)

-- | Given a list of steps determine the ultimate Manhattan-distance from
-- the starting position.