Solve the pairwise disjoint sets problem in 4clojure.com