Program aprindere;
Var f:text;
    n,m,s,i,c,t,x,aa,j,z:longint;
    a:array[0..100000] of longint;
Begin
  assign(f,'aprindere.in');
  reset(f);
  readln(f,n,m);
  s:=0;
  for i:=0 to n-1 do read(f,a[i]);
  for i:=1 to m do
     begin
      read(f,c,t,x);
      aa:=a[c];
      for j:=1 to x do
         begin
          read(f,z);
          if aa=0 then a[z]:=(a[z]+1) mod 2;
         end;
      if aa=0 then s:=s+t;
     end;
  assign(f,'aprindere.out');
  rewrite(f);
  Writeln(f,s);
  close(f);
End.