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