computePath :: [Command] -> [Coord]
computePath = toCoords origin . toSteps north
  where
    north  = Vec 0 (-1)

-- | Find the first duplicate element in a list
computePath :: [Command] -> [Coord]
computePath = toCoords origin . toSteps north
  where
    north  = Vec 0 (-1)

-- | Find the first duplicate element in a list
computePath = toCoords origin . toSteps north
  where
    north  = Vec 0 (-1)

-- | Find the first duplicate element in a list