{
TASK:LAB101
LANG:PASCAL
}

var c, n, m, br, i, j,a1, a2 , a4 ,a3 : longint;
begin
  readln(n, m);
  for i:=1 to n do begin
    for j:=1 to m do begin
      read(c);
      br:=br+c;
    end;
  readln;
  end;

  readln(m);
  for i:=1 to m do readln(a1, a2, a3, a4);
  readln(a1, a1);
  readln(a1, a1);
  readln(a1, a1);
  dec(br);
  writeln(br mod 3);
end.

