program aprindere;
type multime=set of 0..100;
var timp:longint;
    n,m,c,nr,b,i,j:0..1000;
    t:array[0..1000]of 0..1000;
    camera:array[0..1000]of boolean;
    mt:array[0..1000]of multime;
    f:text;

procedure aprinde(x:integer);
begin
 for i:=0 to n-1 do
  if camera[i]=false then
   if t[i]<>0 then begin
    for j:=i to n-1 do if (j in mt[i]) then camera[j]:=not(camera[j]);
    timp:=timp+t[i];
   end else break;

 assign(f,'aprindere.out'); rewrite(f);
  writeln(f,timp);
 close(f);
end;


begin
 assign(f,'aprindere.in'); reset(f);
 readln(f,n,m);
 for i:=0 to n-1 do begin read(f,b); if b=1 then camera[i]:=true; end;
 for i:=1 to m do begin
  read(f,c,t[c],nr);
  for j:=1 to nr do begin read(f,b); mt[c]:=mt[c]+[b]; end;
 end;
 close(f);

 aprinde(n);
end.