Program a1;
var v:array[0..1002] of boolean;
    p,k,n,m,nr,cam,t,nr_cam,tmin,ca:integer;
     i,o:text;
begin
   assign(i,'aprindere.in');
   assign(o,'aprindere.out');
   reset(i);
   rewrite(o);
   read(i,n,m);
   writeln(m);
   nr:=0;
   tmin:=0;
   for k:=0 to n-1 do
      begin
         read(i,cam);
         if cam = 0 then v[k]:=false
         else v[k]:=true;
         if not v[k] then inc(nr);
      end;
   for k:=1 to m do
       begin
          read(i,cam,t,nr_cam);
          writeln(t);
          readln;
          if (not v[cam]) then begin
             tmin:=tmin+t;
             writeln(t);
             readln;
             for p:=1 to nr_cam do begin
                 read(i,ca);
                 if v[ca]=true then begin v[ca]:=false;inc(nr);end
                 else begin v[ca]:=true;dec(nr);end;
                 end;
          end
          else
             for p:=1 to nr_cam do read(i,ca);
          if nr = 0 then break;
       end;
   writeln(o,tmin);
   close(o);
   close(i);
end.