J INVERT K
J ( -- value )  
ansi .6.1.1730 <CORE>
get the current DO ... LOOP index-value being the not-innnermost. (the second-innermost...) see also for the other loop-index-values at I and K

reference: p4_j in ../src/core.c:1355, export CO J