program primes;
    print "Enter N:";
    read N;
    print [x: x in [2..N] | forall y in [2..x-1] | x mod y /= 0];
    end;

100;