%
% stack: seek-str node anchor str-pos suffix
%
% descend the final step in this tree, check for possible linked descent
%
">fing" log)(
"\" found?
{
%
% final step descent in current tree
%
 "\" slice
}
{
%
% terminus of descent
%
 empty exch
} ifelse

%
% don't need the left part, it is the hier of this node
%
% stack: seek-str node anchor str-pos left right
%
"(right" log)(
6 2 roll
%
% stack: left right seek-str node anchor str-pos
%
pop !\ pop2
exch
%
% stack: right left
%
*xhelfine
%
% stack: found
%
"(found" log)(