(dotimes(i(set'n(read)))(format t"~V@TX~:[~VTX~;~*~]~V,0TY~:[~V@TY~;~*~]~V,0T~:[~V@{Z~}~;~*~V@TZ~]
"(min(set'm(- n i 1))i)(= m i)(max m i)(+(min #2=(/(1- n)2)i)n)(<= #2#i)(- m i 1)(* n 2)(>(* m i)0)n m))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).