(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|"(-(#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(())))))