: times { xt n -- }
  n 0 ?do xt execute loop ;