%
% mark if value exists
%
% stack: val-name mark
%
Tree.Up
{
 !\
 second \_ any)?
 {
  dup _\ Tree.!Mark
 } if
} for
pop2