-- ... *cough*

relationalize :: CountryMap -> [Cy]
relationalize = map relit . Map.toList
relationalize :: CountryMap -> [Cy]
relationalize = map relit . Map.toList
relationalize = map relit . Map.toList