(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))