{
TASK:LAB101
LANG:PASCAL
}

var k, 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);
  j:=1;
  for i:=1 to 3545454 do begin
    j:=round(sqrt(j+5454+i));
    k:=((j+i) mod 4355465)+4;
  end;
  writeln(br mod 3);
end.

