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