manhattan :: Coord -> Coord -> Int
manhattan (a, b) (c, d) = abs (c-a) + abs (d-b)
manhattan :: Coord -> Coord -> Int
manhattan (a, b) (c, d) = abs (c-a) + abs (d-b)
manhattan (a, b) (c, d) = abs (c-a) + abs (d-b)