-- | insert O( log n)
insert :: Ord k => k -> Set k -> Set k
insert k !set = T23.insertWith (const) (k, ()) set
insert :: Ord k => k -> Set k -> Set k
insert k !set = T23.insertWith (const) (k, ()) set
insert k !set = T23.insertWith (const) (k, ()) set