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