%
% link to the relative pep based on current pep
%
% stack: current-pep
%
% attach the pep seperator to the current tree name
%
_@ &"#"
%
% get the hierarchy string for the current node
%
_\ hier
%
% eliminate the root node name in creating extended pep name
%
"\" right$
%
% the extended pep name is built from the tree descent hierarchy string
%
"\" "#" replall &
%
% stack: current-pep pep-extend
% 
second isnull) not { &"#" } if
^
"peplink" log)(
%
% stack: extended-pep
%