~ test of "for" loop

~ for i = 1 to 10 print i

1 I:
( I. 11 < ^
   I. ! "  "
   I. 1+ I:
)
"!"

~ for i = 10 to 1 step -1 print i

10 I:
( I. 0 > ^
   I. ! "  "
   I. 1- I:
)
$