{
TASK: CANNIBAL
ID: k02
LANG: PASCAL
}


const ogr = 102;


var a, b, c : array[0..205] of longint;
    i, j, k, l, o, p, m, n, br0, br1, br2 : longint;


procedure input;
var f : text;
 begin
  assign(f, '');
  reset(f);
  for i := 1 to ogr - 1 do
    read(f, a[i]);
  readln(f, a[ogr]);
  for i := 1 to ogr - 1 do
    read(f, b[i]);
  readln(f, b[ogr]);
  close(f);
 end;


begin
 input;
 for i := 1 to ogr do
   begin
    if a[i] = 0 then inc(br0)
    else if a[i] = 1 then inc(br1)
    else if a[i] = 2 then inc(br2);
   end;
 if (br0 >= 51) or (br1 >= 51) or (br2 >= 51) then
   begin
    if br0 >= 51 then writeln(0)
    else if br1 >= 51 then writeln(1)
    else if br2 >= 51 then writeln(2)
    else writeln(0);
   end
 else
   begin
    for i := 1 to ogr do
      if a[i] = -1 then
        begin
         p := i;
         break;
        end;
    k := a[p + 1];
    br0 := 0;
    br1 := 0;
    br2 := 0;
    if p = ogr then k := a[1];
    for i := 2 to ogr do
      if a[i] = k then
        begin
         if a[i - 1] = 0 then inc(br0)
         else if a[i - 1] = 1 then inc(br1)
         else if a[i - 1] = 2 then inc(br2);
        end;
    if (br0 >= br1) and (br0 >= br2) then writeln(0)
    else if (br1 >= br0) and (br1 >= br2) then writeln(1)
    else if (br2 >= br0) and (br2 >= br1) then writeln(2)
    else writeln(0)
   end;
end.
