[ SortTogether obj value; ! print "Sorting together possessions of ", ! (object) obj, " by value ", value, "^"; ! for (x=child(obj):x~=0:x=sibling(x)) ! print (the) x, " no: ", x, " lt: ", x.list_together, "^"; while (child(obj)~=0) { if (child(obj).list_together~=value) move child(obj) to out_obj; else move child(obj) to in_obj; } while (child(in_obj)~=0) move child(in_obj) to obj; while (child(out_obj)~=0) move child(out_obj) to obj; ];