%
% stack: tree-global
%
% focus on the named pep
%

"\" revslice
%
% stack: pep-address tree-desc
%
"/" slice
%
% stack: pep-address tree-index tree-locn
%
!Tree.Hier
!Tree.Index
%
% this is the original destination tree, remains unchanged 
% through transit
%
dup !Tree.Dest
%
% start with the destination tree seek point
% the seek point will change as any necessary ascent
% through trees is needed
%
dup !Tree.Seek
%
% start without any descent tracking
%
!Tree.Track
%
% ascend or descend from the current task tree to the desired
% task tree, prevent informative steps from being issued
%
empty !Chain.Forward
empty !Chain.Back
true "Chain" Task.Survey
"taskchin" chain(

_Tree.Dest !Chain.Back

"Back" vector()