LET n = 0
LET num = 0
LET limit = 100
DO
   LET n = n + 1
   LET tau = 0
   FOR m = 1 TO n
       IF REMAINDER(n, m) = 0 THEN LET tau = tau + 1
   NEXT m
   IF REMAINDER(n, tau) = 0 THEN
      LET num = num + 1
      IF REMAINDER(num, 10) = 1 THEN PRINT
      PRINT ""; n; " ";
   END IF
LOOP WHILE num < limit
END