var v:array [0..1000] of byte;
    n,m,c,nri,t,i,k,rez,stins,j:longint;
begin
 assign (input,'aprindere.in'); reset (input);
 assign (output,'aprindere.out'); rewrite (output);
 readln (n,m);
 for i:=0 to n-1 do read (v[i]);
 readln;
 for i:=1 to m do begin
  while v[stins]=1 do inc(stins);
  read (c,t,nri);
  if c=stins then begin
    for j:=1 to nri do begin
      read(k); v[k]:=1-v[k];
    end;
    rez:=rez+t;
  end;
  readln;
 end;
 writeln(rez);
 close (input); close (output);
end.