RosettaCodeData/Task/Extensible-prime-generator/Fortran/extensible-prime-generator-4.f

2 lines
50 B
Forth

P:=100; WHILE (P:=NextPrime(P)) <= 150 DO stuff;