%
% stack: seek-str
%
seek*
"seeker " _\ & &" " log)(
{
%
% stack: node
%
"seekfnd " _\ & &" " log)(
 !\
 select*
} if