program aprindere;
type sir=array [0..1000] of integer;
var
v:sir;
f:text;
n,m,tc,nrc,i,tm,j,nr,x:integer;
begin
assign(f,'aprindere.in'); reset(f);
read(f,n,m);
for i:=0 to n-1 do read(f,v[i]);
tm:=0;
for i:=0 to n-1 do
  if v[i]=0 then
  begin
     repeat
     read(f,nr);
     if nr=i then begin
                  read(f,tc,nrc);
                  tm:=tm+tc;
                  for j:=1 to nrc do
                              begin
                              read(f,x);
                              v[x]:=ord(v[x]=0);
                              end
                  end
             else
                  readln(f);
     until nr=i;
  end;
close(f);
assign(f,'aprindere.out'); rewrite(f);
write(f,tm);
close(f);
end.