%
% process node name with branding mode
%
% stack: target-name hier-mode
%
*nodedact
_added
{

 Task.@
 _\

 "*Values" do

 countup
"*vals " log()
 2 div
"*valt " log()
 {
  pop
%
% stack: val-data val-name
%
  
"*val " log()
   dup
   <
   |__Tree
    pop2
   > not
   {
    false exch _\ "Valued" set
   } if

  pop
%
% stack:
%

 } for

} if