USING: syntax vectors namespaces math kernel sequences tools ;
SYMBOL: v
1000 <vector>  v set
0 1000 [ 1+ dup v get push ] times drop
: step  v get 0 [ + ] reduce  drop ;
: bench  100000 [ step ] times ;
bench