\ Von der VCE 2011 Benchmark Suite angepasst
\ Führt das Wort XT n-mal aus

: benchme ( xt n -- ) 
  dup >r  \ Anzahl sichern
  +timer-init +timer
  tick @ swap
  0 do dup execute loop 
  drop \ XT entfernen
  tick @
  swap -  
  cr r> . ." Iterations." u. ." timer ticks" cr 
;