(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))))