(set'a(loop while(listen)collect(read-line)))(#1=dotimes(i 4(doseq(l a(#1#'3(f .'#\D)))(doseq(c l(#2=format t"~V@{R~}
"(count #\R l)t))(princ(if(eq c #\#)c" ")))))(defun f`z(#1#'(length a)(#2#(< .`(count z(nth .'(apply'map'list'list a))))"~V,0T~A".'z))(fresh-line))(f(- 3 i)#\U))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).