\ a benchmark how fast a locally-saved value is compared to a local

\ call as follows
0 [if]
time ~/gforth-amd64/gforth-fast -e "include value-vs-local.fs 1 300000000 ' defl runbench . bye"
time ~/gforth-amd64/gforth-fast -e "include value-vs-local.fs 1 300000000 ' defv runbench . bye"
time ~/gforth-amd64/gforth-fast -e "include value-vs-local.fs 1 3000000 ' usel runbench . bye"
time ~/gforth-amd64/gforth-fast -e "include value-vs-local.fs 1 3000000 ' usev runbench . bye"
time ~/gforth-amd64/gforth-fast -e "include value-vs-local.fs 1 300000000 ' drop runbench . bye"

time vfxlin "include value-vs-local.fs 1 300000000 ' defl runbench . bye"
time vfxlin "include value-vs-local.fs 1 300000000 ' defv runbench . bye"
time vfxlin "include value-vs-local.fs 1 3000000 ' usel runbench . bye"
time vfxlin "include value-vs-local.fs 1 3000000 ' usev runbench . bye"
time vfxlin "include value-vs-local.fs 1 300000000 ' drop runbench . bye"

time iforth-noprf "include /nfs/a5/anton/gforth/compat/anslocal.fs include value-vs-local.fs 1 300000000 ' defl runbench . bye"
time iforth-noprf "include /nfs/a5/anton/gforth/compat/anslocal.fs include value-vs-local.fs 1 300000000 ' defv runbench . bye"
time iforth-noprf "include /nfs/a5/anton/gforth/compat/anslocal.fs include value-vs-local.fs 1 3000000 ' usel runbench . bye"
time iforth-noprf "include /nfs/a5/anton/gforth/compat/anslocal.fs include value-vs-local.fs 1 3000000 ' usev runbench . bye"
time iforth-noprf "include /nfs/a5/anton/gforth/compat/anslocal.fs include value-vs-local.fs 1 300000000 ' drop runbench . bye"
[then]

: defl { this -- } ;
: usel ( x1 this -- x2 ) { this }
    100 0 do this + loop ;

0 value this

: defv ( this -- )
    this >r to this r> to this ;
: usev ( x1 this -- x2 )
    this >r to this 100 0 do this + loop r> to this ;

: runbench ( ... u xt -- ... )
    { xt } 0 do i xt execute loop ;