%
% stack: subjects
%
% make sure subjects exist
%
@Customers
%
% remove current child nodes
%
%%%%%% *unrootch
_@ &"_.xml" oflist Tree.Load

dup !Xact.Index
positive
{
%
% get the strings of subject summaries of xacts
%
 _Xact.Slist
dup logs
 <_>
 countup
 {
"xactidx" log)(
  pop

%
% record the tree entry
%
  0 !Xact.Refed
  dup <_Xact.Slist> pop
%
% prefix a subject tag for tree name display
%
"xactxsht" log)(
  dup !Shooter.Subject

  ^"subj " root\ newchild
  "Subject" \!Type
  _Shooter.Subject \!Subject
  _Xact.Refed \!Xact

 } for

 _@ &".xml" oflist
 dup Tree.Save pop
 Tree.Load

} if