---------------------------------------------------------------
-- | map through list conversion
map :: (Ord k1, Ord k2) => (k1 -> k2) -> Set k1 -> Set k2
map f = fromList . L.map f . toList
map :: (Ord k1, Ord k2) => (k1 -> k2) -> Set k1 -> Set k2
map f = fromList . L.map f . toList
map f = fromList . L.map f . toList