%
% get subject header start xacts for this chuuter/Shooter/Venue
%
0 !Xact.Index
0 !Xact
empty !Xact.Slist
chuuter !Xact.Prefix
{
 *xactreva
"xreva " &_Xact log)(
 {
  *xactninf
%
% next downward xact exists
%
  *shooting
"shting" log)(
  {
%
% meets filtered venue/shooter selection criteria
%
   *xactsubj
"xsubj" log)(
   {

%
% has a subject, possibly add to lookup
%
    _Shooter.Subject
    _Xact.Slist exch <?>
    {
     &" " &_Tack &" !Xact.Tacker" &;
     !Xact.Slist
     +:Xact.Index
    } if
   }
   {
%
% no subject, keep going
%
   } ifelse
  }
  {
%
% not same chuuter
%
  } ifelse
%%%  _Xact.Index 8 gt
  false
 }
 {
%
% no more xacts
%
  true
 } ifelse
 ?
} loop
_Xact.Index
%
% stack: count
%