Ejection simplified by kozima

(loop(setf x(read-line)n(1-(length x))c(elt x 0))(format t"~:[~4*~A~;~C~VT~C~A~]
"(find #\  x)c n c(remove #\ (subseq x 1 n))x))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page