(loop(setf r(read-line)s(#1=format()"~A~A"r r)a`(,r)n(length r)i 0)(do()((=(incf i)n)(#1#t"~D ~{~C~}
"(position r(sort a'string<=))(mapcar(lambda(u)(elt u(1- n)))a)))(push(subseq s i(+ n i))a)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).