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