(do((w #2=(read-line))(l(loop repeat 12 collect #2#)(apply'map'list'list(reverse l)))(c 0))((>(incf c)4)(format t"~{~{~C~}
~}"l))(doseq(s l)(if #1=(search w s)(replace s(fill(copy-seq w)#\ ):start1 #1#))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).