LET bs = 10
LET c1 = 0
LET c2 = 0
FOR k = 1 TO (bs^2)-1
    LET c1 = c1 + 1
    IF REMAINDER(k,(bs-1)) = REMAINDER((k*k),(bs-1)) THEN
       LET c2 = c2 + 1
       PRINT k;
    END IF
NEXT k
PRINT
PRINT USING "Trying ## numbers instead of ### numbers saves ##.##%": c2, c1, 100-(100*c2/c1)
END