root\
"#" _\\ Str.Found
{
 _\\ "#" Str.RevRight Tree.Rooting
%
% mark the tree as changed
%
 nod@
} if