%
% cycle through all the trees
%
Task.@
Tree.Down third !origlen
{
 dup !target
 !\
 Task.@
 Tree.Tier>2
 {
  "tpref" \_
  "tglobal" \_
  "fname" \_
  _\\
  "fname" \_
  isnull
  {
   5 popoff
  }
  {
   Tree._Parent
   true *tre0acts
   exch Tree.Load
   rootnode
   _\\ rot !\\ "_rootname" \!
   "_asim" \!
   "fname" \!
   "tglobal" \!
   "tpref" \!
   0 "CopyItem" do
   Task.@
   _target !\
   -1 "_asim" \!
  Tree._Parent
  !\ unsort
  _target Mep.Remove
  _\
%%%   -1
   
   "LoadItem" do
   false *tre0acts
  } ifelse
 } if
} for
Task.@
%%% 0 _origlen "Above" set
"_Trees.tlt" ofbin Tree.Save pop