RosettaCodeData/Task/Repeat/Forth/repeat-1.fth

: times ( xt n -- )
  0 ?do dup execute loop drop ;