END{for(A[2]=1;j=i++<1e3;)for(R=E;++j<2570;r/=10)R=(A[j]=int(r+=A[j]*i)%10)R;print R}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page