%
% glean FireDance code
%
Task.@
*gleanstb
%
% remove all nodes, make a new root node
%
% stack: glean-body glean-name
%
dup !Glean.Name
Tree.NewRoot
*treenlev

*gleanopj

%%% Tree.Changed