RosettaCodeData/Task/Loops-For/Oforth/loops-for.fth

: loopFor(n)
| i j |
   n loop: i [
      i loop: j [ "*" print ]
      printcr ;