program aprindere;
var f,h:text;
    a:array[0..999]of 0..1;
    b:array[1..1000,1..103]of integer;
    m,n,s,i,j,l:integer;
begin
 assign(f,'aprinder.in');
 assign(h,'aprindere.out');

 reset(f);
 rewrite(h);

 readln(f,n,m);
 for i:=0 to n-1 do read(f,a[i]);
 for i:=1 to m do
  begin
   j:=1;
   while j<=3+b[i,3] do
       begin
         read(f,b[i,j]);
         inc(j);
       end;

  end;

 s:=0;
j:=1;
 for i:=0 to n-1 do
   if a[i]=0 then
    begin
     while b[j,1]<>i do inc(j);
     s:=s+b[j,2];
     for l:=4 to 4+b[j,3] do
      if a[b[j,l]]=0 then a[b[j,l]]:=1
                     else a[b[j,l]]:=0;
    end;


 writeln(h,s);
 close(f);
 close(h);
end.