\ #! /usr/stud/paysan/bin/forth DECIMAL\ : SECS TIME&DATE  SWAP 60 * + SWAP 3600 * +  NIP NIP NIP ;CREATE FLAGS 8190 ALLOTvariable eflag\ FLAGS 8190 + CONSTANT EFLAG \ use secondary fill like pForth   !!!: FILL { caddr num charval -- }    num 0    ?DO        charval caddr i + c!    LOOP; : PRIMES  ( -- n )  FLAGS 8190 1 FILL  0 3  EFLAG @ FLAGS  DO   I C@       IF  DUP I + DUP EFLAG @ <           IF    EFLAG @ SWAP                 DO  0 I C! DUP  +LOOP           ELSE  DROP  THEN  SWAP 1+ SWAP           THEN  2 +       LOOP  DROP ; : BENCHMARK  0 100 0 DO  PRIMES NIP  LOOP ;           \ !!! ONLY 100\ SECS BENCHMARK . SECS SWAP - CR . .( secs): main    flags 8190 + eflag !    benchmark ( . ) drop;