%
% get subject xacts
%
0 !Xact.Index
%
% start out the new subject list
%
'"empty ' !Xact.Slist
"xact_" textwild
empty oftack
empty
{
 nextfile ?
 dup term2 noext &" " ^:Xact.Slist
 +:Xact.Index
} loop
filing)

_Shooter.Subject squoter ^" " &'"' &; ^:Xact.Slist
%
% xact-group is "empty xact [ . . . ] 'subject'"
%