base = 10
c1 = 0
c2 = 0
for k = 1 to (base ^ 2) - 1
	c1 += 1
	if k % (base - 1) = (k * k) % (base - 1) then c2 += 1: print k; " ";
next k
print
print "Trying "; c2; " numbers instead of "; c1;  " numbers saves "; 100 - (100 * c2 / c1); "%"
end