How can sets be recursively concatenated when intersecting with each other

Select or download this

(0)
(0 1)
(0 1 2)
(1 2 3)
(6 4 5)

Select or download this

((0 1 2 3)
(4 5 6)

Select or download this

use Set::Scalar;

...
for $j ( $i+1 .. 4) {
    if ($cluster[$i]->is_properly_intersecting($cluster[$j])) {$cluste
+r[$i]=$cluster[$i]+$cluster[$j];$cluster[$j]->clear;}
}}

Select or download this

(0)
(0 1 2 3)
(0 1 2)
()
(4 5 6)

Select Code to Download