code: void pop_into_stk( int x ) {
      assert x < 0;
      subRef(_ary[_sp+x], _key[_sp+x]);  // Nuke out old stuff
      subRef(_fcn[_sp+x]);
      _ary[_sp+x] = _ary[_sp-1];  // Copy without changing ref cnt
      _fcn[_sp+x] = _fcn[_sp-1];
      _d  [_sp+x] = _d  [_sp-1];
      _str[_sp+x] = _str[_sp-1];
      _sp--;  x++;                // Pop without changing ref cnt
      while( x++ < -1 ) pop();
    }
docs: Example: pop_into_stk(-4)  BEFORE: A,B,C,D,TOS  AFTER: A,TOS