END{OFS=_;for(r=j=1;--j||j=2568*!$!!++i;r/=10)r-=$j=(r+=$j*i)%10;print}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page