program aprindere;

var f,h:text;
    a:array[0..1000]of 0..1;
    b:array[1..100]of 0..1000;
    m,n,i,j,c,t,nr:integer;
    s:longint;

begin

 assign(f,'aprinder.in');
 assign(h,'aprindere.out');

 reset(f);
 rewrite(h);

 s:=0;
 readln(f,n,m);

 for i:=0 to n-1 do read(f,a[i]);

 for i:=1 to m do
 begin
	 read(f,c,t,nr);
   	 for j:= 1 to nr do read(f,b[j]);
  	 if a[c]=0 then
    	 begin
    	 	s:=s+t;
		for j:= 1 to nr do
		if a[b[j]]=0 then a[b[j]]:=1
                	     else a[b[j]]:=0;
    	 end;
 end;

 writeln(h,s);

 close(f);
 close(h);
end.