* I ( -- value ) returns the index-value of the innermost >DO .. >LOOP
I
( -- value )
>DO
>LOOP
core ordinary primitive