{for(n=$0;++i<j=n;print FS$0)for(;a[j]=--j>9?sprintf("%c",j+55):j;$j=(NR?a[NR]:FS)a[i*j%n])NR=i*j/n}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page