%
% close the root of the tree
%
% stack: tree-mep
%
_@
exch !@
false 0 @!Expanded
_@ quoter &" *treeopen"
"trcl" log)(
fire(
!@