1 2 3 4 5 6 7 8 9
1 i $ § incr dup @ 1 + swp $ ; § print @ . pop ; § withinBounds @ 10 < ; § loop i withinBounds if i print i incr loop then else ; loop
