var v,v1,v2:array[1..1024] of longint;
    f:text;
    r,i,j,n,m,k,max,pmax:integer;

procedure citire;
begin
assign(f,'balanta.in');reset(f);
readln(f,n,m);
for i:=1 to m do
    begin
    read(f,k);
    for j:=1 to k do read(f,v1[j]);
    for j:=1 to k do read(f,v2[j]);
    readln(f,r);
    if r=1 then for j:=1 to k do inc(v[v1[j]]);
    if r=2 then for j:=1 to k do inc(v[v2[j]]);
    end;
close(f);
end;

begin
citire;
assign(f,'balanta.out');rewrite(f);
max:=0;pmax:=0;
for i:=1 to n do
    if v[i]>max then begin
       max:=v[i];
       pmax:=i;
       end;
if max=0 then writeln(f,0)
else writeln(f,pmax);
close(f);
end.