(for i(= a(n-of 80(table))x 40 y x o x b x r x l x d 1)(read)(case d 0 --.y 2(++ y)3(++ x)--.x)(= d(mod(+(if #1=a.y.x 1 -1)d)4)#1#(no #1#)o(min o y)b(max b y)r(max r x)l(min l x)))(for y o b(for x l r(pr:if a.y.x"#"" "))(prn))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).