(loop(format t"~:[~*~A~VT~;~]~A "(<(setq l(read-line)c(char l 0)w(1-(length l)))(count c l))l c w(remove #\ (subseq l 0 w))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page