var a:array[0..1000] of integer;
    t:array[0..1000] of integer;
    b:array[0..1000,1..105] of integer;
    f,g:text;
    n,m,k,s,l:longint;
procedure citesc;
 var i,x,j:longint;
 begin
  readln(f,n,m);
  for i:=1 to n do
   read(f,a[i]);
  for i:=1 to m do begin
   read(f,x);
   b[x,1]:=x;
   readln(f,t[i],b[x,2]);
   for j:=1 to b[x,2] do
    read(f,b[x,2+j]);
  end;
 end;
begin
 assign(f,'aprindere.in'); reset(f);
 assign(g,'aprindere.out'); rewrite(g);
 s:=0;
 citesc;
 for k:=1 to n do
  if a[k]=0 then begin
   for l:=1 to b[k,2] do
    a[b[k,2+l]]:=(a[b[k,2+l]]+1) mod 2;
   s:=s+t[k];
  end;
 writeln(g,s); close(f); close(g);
end.