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