Data.DisjointMap
data DisjointMap k v
empty
singleton
singletons
insert
union
lookup
representative
representative'
toLists