\ #! /usr/stud/paysan/bin/forth
\ : SECS TIME&DATE SWAP 60 * + SWAP 3600 * + NIP NIP NIP ;
\ FLAGS 8190 + CONSTANT EFLAG
\ use secondary fill like pForth !!!
: FILL { caddr num charval -- }
: PRIMES ( -- n ) FLAGS 8190 1 FILL 0 3 EFLAG @ FLAGS
ELSE DROP THEN SWAP 1+ SWAP
: BENCHMARK 0 100 0 DO PRIMES NIP LOOP ; \ !!! ONLY 100
\ SECS BENCHMARK . SECS SWAP - CR . .( secs)