// print list of primes up to  100000

primes := [ p : p in [1..10000] | IsPrime(p) ];
print primes;