{
TASK: cannibal
LANG: PASCAL
}
program canibal;

const
	n				= 102;

var
	a, b				: Array [1 .. n] of Integer;
	answ, i, me			: Integer;
	n0, n1, n2			: Integer;

begin
	for i := 1 to n do begin
		read(a[i]);
		if (a[i] = -1) then me := i;
	end;
	readln;
	answ := -1;
	for i := 1 to n do begin
		read(b[i]);
		if (b[i] <> -1) then answ := b[i];
	end;
	n0 := 0;
	n1 := 0;
	n2 := 0;
	if (answ <> -1) then begin
		writeln(answ);
		Exit;
	end;
	for i := 1 to 102 do
		if (a[i] = 0) then n0 := n0 + 1
		else if (a[i] = 1) then n1 := n1 + 1
		else if (a[i] = 2) then n2 := n2 + 1;
	if (n1 >= n2) and (n1 >= n0) then answ := 1
	else if (n0 >= n1) and (n0 >= n2) then answ := 0
	else answ := 2;
	writeln(answ);
end.