---------------------------------------------------------------

-- | fromList O( n)
fromList :: (Ord k, Foldable t) => t k -> Set k
fromList xs = insertAll xs empty
fromList :: (Ord k, Foldable t) => t k -> Set k
fromList xs = insertAll xs empty
fromList xs = insertAll xs empty