for i=2to 36for j=-8to 0k=mod(257*i^j,i):if i^-j<258?chr$(k+48+7*!k<10);
next:?next