-- | /O(n)/. Convert the set to a descending list of elements. Subject to list
-- fusion.
toDescList :: Set a -> [a]
toDescList = foldl (flip (:)) []
toDescList :: Set a -> [a]
toDescList = foldl (flip (:)) []
toDescList = foldl (flip (:)) []