http://tcllib.sf.net/doc/disjointset.html is the documentation for this tcllib module which provides disjoint sets.