(dotimes(x 2011)(princ(elt #2='#.(loop while(listen)collect(read-char))(+(if(eq(elt #2#0)#\e)(min(* x 2)(- #1=(- 4021 x)x))(/(if(oddp x)#1#x)2))7))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page