PROGRAM  "Casting out nines"
VERSION  "0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
  bs = 10
  c1 = 0
  c2 = 0
  FOR k = 1 TO (bs ** 2) - 1
    INC c1
    IF k MOD (bs - 1) = (k * k) MOD (bs - 1) THEN INC c2: PRINT k;
  NEXT k
  PRINT
  PRINT "Trying "; c2; " numbers instead of "; c1;  " numbers saves "; 100 - (100 * c2 / c1); "%"
END FUNCTION
END PROGRAM