%
% descend from this node with all global refs
%
 _tracker "ftn" \_ <?>
 {
  !tracker
%
% new item in tracker, descend through refs
% pull the indexer list for the current node
%
  "_tracker" \_ "ftn" \_ <?> { "_tracker" \! } if

  "indexer" \_
  any?
  {
%
% found global refs
%
"glorefs " log)(
   execstr
   countup
   {
"glocount " &3 &" " log)(
    pop
    !exact !morespec
%
% must be an exact global
%
    _exact
"exact " log)(
    {
     dup
     "ftn" \_
"ftneq " &3 &" " log)(
     exact$
     {
%
% this is the current function, do not process
%
      pop
     }
     {
%
% look up each specific indexed global
%
      _tracker second <?>
      {
       !tracker
       "_tracker" \_ second <?> { "_tracker" \! } if
"tracked " log)(
%
% new descendant
%
       _\ [Push]
       unsort
       dup
       root\
       "ftn"
       *findvalu
       {
%
% found the function in master tree, copy the item under the
% main selected node in the master tree
%
       _\ "CopyOne" do
       [Pop]
       dup "LoadItem" do
       dup !\
       [Push]
       Tree._New !\
       "ftn" \_ !\\
       "_tracker" \_ &_tracker !tracker
       pop
"recurse " _\\ & logs
       *=
       [Pop] !\
      }
      {
%
% make a node to substitute for finding the global
%
       [Pop] dup !\
       exch newchild
       !\
      } ifelse

     }
     {
%
% already descended through this
%
      pop
     } ifelse

    }
    {
%
% not exact global
%
     pop
    } ifelse
   } for
  }
  {
%
% could not find global ref
%
   pop 
  } ifelse

 }
 {
%
% previous descent
%
  
 } ifelse