! could surely use a cleanup



:: bench-ave-time ( n quot -- avg ) ! (if n > 100,000, use 'drop' to drop the value at the end of your quot. )
    SYMBOL: accum-vector 
    V{ } clone accum-vector set
12 [
 [ n quot times ] isolated-time 
accum-vector get swap suffix accum-vector set 
   ] times
accum-vector get 

natural-sort 1 tail 1 head*  mean 

n pprint " operations took: " write >float pprint " milliseconds." write nl
;

! 300000 [ 3 4 * drop ] bench-ave-time
! 300000 operations took: 31.2 milliseconds.