{for(n=$0;++i<j=n;){for(;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}}