var n,m,i,j,c:longint;
    min:int64;
    camere:array[0..1000]of integer;
    a:array[0..200,0..200]of integer;
    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;
     while not eof(fi) do
        begin
             read(fi,c);
             a[c,0]:=c;
             read(fi,a[c,1],a[c,2]);
             for j:=2 to a[c,2]+1 do
                read(fi,a[c,j+1]);
             inc(i);
        end;
     for i:=0 to n-1 do
        begin
             if camere[i]=0 then
                begin
                     min:=min+a[i,1];
                     for j:=1 to a[i,2] do
                         if camere[a[i,j+2]]=0 then camere[a[i,j+2]]:=1
                                               else camere[a[i,j+2]]:=0;
                end;
        end;
     writeln(fo,min);
     close(fi);
     close(fo);
end.