%
% backtrack within this tree level to the prior proc
%
_\
dup
%
% stack: if-node proc-search
%
{
 Tree.Prev( ?
 dup !\
 *gleancls
 {
%
% this is the closing proc brace, now find matching open brace
%
  dup
%
% stack: if-node close-proc open-search
%
  {
   Tree.Prev( ?
   dup !\
   *gleanopn
   {
%
% have both braces for proc
% delete the if/for/loop and the close brace
%
% stack: if-node close-proc open-brace
%
    "Data" fourth
    Tree._ValueOf
    fourth Mep.Remove third Mep.Remove
    dup "Type" \!
    dup "Data" \!
    !\\
    pop2 true ??
   } if
  } loop
  pop2
 } if
} loop
pop