RosettaCodeData/Task/Primality-by-Wilsons-theorem/SETL/primality-by-wilsons-theorem.setl

program wilsons_theorem;
    print({n : n in {1..100} | wilson n});

    op wilson(p);
        return p>1 and */{1..p-1} mod p = p-1;
    end op;
end program;