* K ( -- counter-val ) the 3rd loop index just like I and J
K
( -- counter-val )
I
J
forth_83 ordinary primitive