program Aprindere;
label
   001, 999;
var
   Fl : text;
   a : array[0..1000] of byte;
   i, j, k, n, m, s, nrc, c, tc, nc : integer;
begin
   Assign(Fl,'aprindere.in');
   Reset(Fl);
   ReadLn(Fl,n,m);
   for i := 0 to n-1 do
      Read(Fl,a[i]);
   s := 0;
   for i := 0 to n-1 do
      if a[i] = 0 then
         begin
001: ;
            Read(Fl,c);
            Read(Fl,tc);
            Read(Fl,nrc);
            if c = i then
               begin
                  s := s + tc;
                  for j := 1 to nrc do
                     begin
                       Read(Fl,k);
                       if a[k] = 1 then
                          a[k] := 0
                       else
                          a[k] := 1;
                     end;
               end
           else
              begin
                 ReadLn(Fl);
                 goto 001;
              end;
         end;
   Close(Fl);

   Assign(Fl,'aprindere.out');
   ReWrite(Fl);
   WriteLn(Fl,s);
   Close(Fl);
end.