var n,m,timp,nrc,i,j,intr,min,c:integer;
    camere:array[0..1000]of byte;
    fi,fo:text;
begin
     assign(fi,'aprindere.in'); reset(fi);
     assign(fo,'aprindere.out'); rewrite(fo);
     read(fi,n,m);
     for i:=0 to n-1 do
        read(fi,camere[i]);
     min:=0;
     for i:=0 to n-1 do
        begin
             read(fi,c);
             if camere[i]=0 then
                begin
                     if i=c then
                        read(fi,timp,nrc);
                     min:=min+timp;
                     for j:=1 to nrc do
                        begin
                             read(fi,intr);
                             if camere[intr]=0 then camere[intr]:=1
                                               else camere[intr]:=0;
                        end;
                end;
        end;
     writeln(fo,min);
     close(fi);
     close(fo);
end.