%
% select the node where the descent can reach
%
%%% select*
sel@
_\ positive
{
%
% get the hierarchy string for the current node
%
 _\ hier
%
% eliminate the root node name in creating extended pep name
%
 "\" right$
"dotvar" log)(
 dup ._ empty rot .!
"dotvarexec" log)(
 execstr
}
{
 _@ ^"#" &"#" dup _ empty rot ! execstr
} ifelse