%
% implant the list of xacts with same subject to all the xacts
% from the first xact of subject
%
"Subject_Xacts" text_xact !subjx
_Subject.Xacts
any?
{
 execstr
 pop
 {
  isnull ?
  !Xact
  _subjx "Subject_Xacts" text!xact
 } loop
 pop
} if
%
% stack: 
%