procedure main()
    var n := 1;
    var lim := 1000;
    argc() > 2 -> lim := val( argv( 2 ));
    while n < lim do
        var k:=3;
        var p:=true;
        n:=n+2;
        while k*k<=n and p do
            p:=n/k*k<>n;
            k:=k+2;
        end;
        p -> echo n,' ';
    end;
end;
