(setf x(loop repeat 30 collect(format()"~201@{ ~}"t))i 20 n -1 p #\ )(doseq(s(doseq(a(read-line)x)(setf(elt(nth(incf i(if(char< p a)-1(if(eq p a)0 1)))x)(incf n))a p a)))(format t"~&~A"(string-right-trim" "s)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).