%
% remove values from node
%
selected

@^*Values
execstr
countup
2 div
{
 pop
%
% stack: val-data val-name
%
 dup "_" atleft
 {
  pop2
 }
 {
  
  false exch _\ "Valued" set

  pop

 } ifelse
%
% stack:
%

} for