K K9 KEY
K
* K ( -- counter-val )

the 3rd loop index just like I and J

FORTH/FORTH forth_83 compiling primitive