1 \ #! /usr/stud/paysan/bin/forth
4 \ : SECS TIME&DATE SWAP 60 * + SWAP 3600 * + NIP NIP NIP ;
5 CREATE FLAGS 8190 ALLOT
7 \ FLAGS 8190 + CONSTANT EFLAG
9 : PRIMES ( -- n ) FLAGS 8190 1 FILL 0 3 EFLAG @ FLAGS
11 IF DUP I + DUP EFLAG @ <
14 ELSE DROP THEN SWAP 1+ SWAP
18 : BENCHMARK 0 1000 0 DO PRIMES NIP LOOP ;
19 \ SECS BENCHMARK . SECS SWAP - CR . .( secs)