Data.DisjointSet
data DisjointSet a
empty
singleton
singletons
insert
union
representative
representative'
toLists