(loop(set'c 80)(doseq(w(asdf::split(read-line))(terpri))(format t"~:[ ~;~&~]~A"(if(>(incf c #1=(1+(length w)))#.(read))(set'c #1#))w)))