input""a,b
for i=0to a^b-1for j=1-b to 0?s$,mod(int(i/a^-j),a)+1;
s$=" "next
s$="
"next