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