(do((w #2=(read-line))(l(loop repeat 12 collect #2#)(apply'map'list(lambda(&rest x)(format()"~{~C~}"x))(reverse l)))(c 0))((>(incf c)4)(mapc'write-line l))(doseq(s l)(if #1=(regexp:match w s)(fill(regexp:match-string s #1#)#\ ))))