program balanta;
var f,g:text;
   a,b:array[1..1024] of -1..1;
   v,vv:array[1..512] of 1..1024;
   n,cc,m,i,j,k,c,r:integer;
begin
assign(f,'balanta.in');
reset(f);
readln(f,n,m);
fillchar(a,n,1);
fillchar(b,n,1);
for i:=1 to m do
  begin
    read(f,k);
    for j:=1 to k do read(f,v[j]);
    for j:=1 to k do read(f,vv[j]);
    readln(f,r);
    if r=0 then
        for j:=1 to k do
           begin
             a[v[j]]:=0;
             a[vv[j]]:=0;
             b[v[j]]:=0;
             b[vv[j]]:=0;
           end
         else
          if r=1 then
            begin
               for j:=1 to n do
                 begin
                   if a[j]=0 then a[j]:=-1
                     else a[j]:=0;
                     if b[j]=0 then b[j]:=-1
                       else b[j]:=0;
                 end;
              for j:=1 to k do
                begin
                  if a[v[j]]=0 then a[v[j]]:=1;
                  if b[vv[j]]=0 then b[vv[j]]:=1;
                end;
            end
               else
                 begin
                    for j:=1 to n do
                 begin
                   if a[j]=0 then a[j]:=-1
                     else a[j]:=0;
                     if b[j]=0 then b[j]:=-1
                       else b[j]:=0;
                 end;
              for j:=1 to k do
                begin
                  if b[v[j]]=0 then b[v[j]]:=1;
                  if a[vv[j]]=0 then a[vv[j]]:=1;
                end;
                 end;
  end;
close(f);
assign(g,'balanta.out');
rewrite(g);
c:=0;  cc:=0;
for j:=1 to n do
   begin
     if a[j]=1 then begin inc(c); k:=j; end;
     if b[j]=1 then begin inc(cc); r:=j; end;
   end;
if c=1 then   writeln(g,k)
   else if cc=1 then writeln(g,r)
     else writeln(g,'0');
close(g);
end.