100 HOME : REM  100 CLS for Chipmunk Basic
110 PRINT "Primes below 100"+CHR$(10)
120 FOR n = 2 TO 100
130  GOSUB 160
140 NEXT n
150 END
160 rem FUNCTION WilsonPrime(n)
170  fct = 1
180  FOR i = 2 TO n-1
181   a = fct * i
190   fct = a - INT(a / n) * n
200  NEXT i
210  IF fct = n-1 THEN PRINT i;"  ";
220 RETURN