a=*$<
f=proc{|x,y|(putc C;f[x,f[x,f[x-1,f[x+1,S[x]=y]]+1]-2])if(S=a[y])&&32<C=S[x];y}
f[0,0]