coordsInRange :: Range -> [Coord]
coordsInRange (Range (lx, ly) (hx, hy)) =
  [(x, y) | x <- [lx..hx], y <- [ly..hy]]
coordsInRange :: Range -> [Coord]
coordsInRange (Range (lx, ly) (hx, hy)) =
  [(x, y) | x <- [lx..hx], y <- [ly..hy]]
coordsInRange (Range (lx, ly) (hx, hy)) =
  [(x, y) | x <- [lx..hx], y <- [ly..hy]]