(do*((b(format()"~30T~{~30A~}~350T"(loop while(listen)collect(read-line))))(p 0(some(lambda(q)(and(/=(- p)q)(char>(elt b(+ x q))#\ )q))'(1 -1 30 -30)))(x 30(+ x p)))(())(princ(elt b x)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).