-- | Return a list of all chains and empty areas as returned by `territory`.
territories :: Player p => Board p -> [(Territory p, [[(Int, Int)]])]
territories = map (second $ map (map repaCoordsToTuple)) . B.territories
territories :: Player p => Board p -> [(Territory p, [[(Int, Int)]])]
territories = map (second $ map (map repaCoordsToTuple)) . B.territories
territories = map (second $ map (map repaCoordsToTuple)) . B.territories