claimedAreas :: Claim -> [(Int, (Int, Int))]
claimedAreas (Claim ind (cx, cy) (sx, sy)) =
[(ind,(i,j)) | i <- [cx+1..cx+sx], j <- [cy+1..cy+sy]]
claimedAreas :: Claim -> [(Int, (Int, Int))]
claimedAreas (Claim ind (cx, cy) (sx, sy)) =
[(ind,(i,j)) | i <- [cx+1..cx+sx], j <- [cy+1..cy+sy]]