FUNCTION wilsonprime(n)
    LET fct = 1
    FOR i = 2 TO n - 1
        LET fct = MOD((fct * i), n)
    NEXT i
    IF fct = n - 1 THEN LET wilsonprime = 1 ELSE LET wilsonprime = 0
END FUNCTION

PRINT "Primes below 100"; CHR$(10)
FOR i = 2 TO 100
    IF wilsonprime(i) = 1 THEN PRINT i; "   ";
NEXT i
END