(use util.combinations)(map(apply$ print)(permutations*(append(#0=make-list(-(read)(set! ~(read)))#\0)(#0#~ #\1))))