%
% move back to xhelp highest tree
%
*xhelback
%
% keep retreating a tree level if not Xhelp tree
%
_@ "Xhelp" eq$
{
 *(+
}
{
 *(=
} ifelse