(format t"~{~{~{~A~}~}
~}"(apply'mapcar'list(loop for j to 9 collect(concatenate'list(#1=subseq #18((" "))(+ j j))`(,(#1#(setf n(#2=char-int(elt"w$km<]_d\x7f|"(-(#2#(read-char))48)))s(loop for i to 6 collect(if(oddp(ash n(- i 6)))(elt"/\\\\/\\\\/"i)#\ )))0 2),(#1#s 2 5)(#\ ,@(#1#s 5)))#18(())))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).