%
% stack: [ . . . ] term name
%
_\ [Push]
{
%
% stack: [ . . . ] term name
%
 dup "#" fourth 1 1 parse
 isnull
 ?
%
% stack: [ . . . ] term name node-name
%
 dup Tree.Member(
%
% stack: [ . . . ] term name node-name
%                     [ pres-index ] if member
%                          is-member
%
 {
%
% stack: [ . . . ] term name node-name
%                     pres-index
%
  !\ pop
 }
 {
%
% stack: [ . . . ] term name node-name
%
  newchild
 } ifelse
 _\ !dest

%
% stack: [ . . . ] term name
%
 incr2nd
 *=
} loop
%
% stack: [ . . . ] term name node-name
%
pop

[Pop] !\
%
% stack: [ . . . ] term name
%