100 CLS : 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
190   FCT = (FCT*I) MOD N
200  NEXT I
210  IF FCT = N-1 THEN PRINT I;"   ";
220 RETURN