(do((i(read))(m'((1 2)(2 1))(mapcan(lambda(l)(apply'mapcar'append(sublis'((0 #1=(0 0 0 0)#1##1##1#)(1(0 0 0 1)(1 2 0 2)(2 0 2 1)(1 0 0 0))(2(2 1 2 0)(0 0 1 0)(0 1 0 0)(0 2 1 2)))l)))m)))((<(decf i)0)(format t"~{~{~[ ~;/~;\\~]~}
~}"m)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).