( J    return index of the next outer loop of a nested DO-LOOP )

: j                               ( n --- )
  r>                              ( fetch return address)
  r> r>                           ( fetch I loop limits)
  r                               ( copy  J index)
  swap >r swap >r                 ( restore I loop limits)
  swap >r                         ( restore return address)
;