\ ( BYTE magazine benchmark )
decimal

8190 constant size

: do-prime ( -- )
    here size 1 fill
    0 size 0 do                   
       here i + c@                
       if                          
          i 2* 3 + dup i + here +  
          begin                   
             dup size here + <    
          while                    
             0 over c! over +      
          repeat                  
          2drop 1+                
       then                       
    loop                          
    dup . ." PRIMES" cr         
    drop   ; 




: secs ( -- secs )     time&date 2drop drop  60 * + 60 * +  ;
: stop ( -- elapsed )  ' secs >r execute secs r> -  ;

.( **************************************************************)
.( ********** starting to calculate primes, be patient **********)  cr
.( **************************************************************)

stop do-prime  . .( seconds for executing prime number sieve once) cr