var u,d,c:array[1..1024]of integer;
    n,m,ic,i,j,s,p:integer;
    f,g:text;

begin
assign(f,'balanta.in');
reset(f);
readln(f,n,m);
for i:=1 to m do begin
   read(f,ic);
   ic:=2*ic;
   for j:=1 to ic do read(f,c[j]);
   readln(f,s);
   if s=0 then for j:=1 to ic do begin
                  u[c[j]]:=1;
                  d[c[j]]:=1;
               end;
   if s=1 then begin
               for j:=1 to ic div 2 do d[c[j]]:=1;
               for j:=j+1 to ic do u[c[j]]:=1;
               end;
   if s=2 then begin
               for j:=ic div 2+1 to ic do d[c[j]]:=1;
               for j:=1 to ic div 2 do u[c[j]]:=1;
               end;
end;
s:=0;
for i:=1 to n do
  if u[i]=1 then s:=s+1
            else p:=i;
assign(g,'balanta.out');
rewrite(g);
{if n-s=1 then write(g,p)
         else begin
              s:=0;
              for i:=1 to n do
                 if d[i]=1 then s:=s+1
                           else p:=i;
              if n-s=1 then write(g,p)
                       else write(g,0);
              end;}write(g,0);
close(g);
end.