{
TASK:lab101
LANG:PASCAL
}

type point = record
              x, y : longint;
             end;


var a, used : array[0..10, 0..10] of longint;
    trap : array[0..10, 0..10] of point;
    i, j, k, l, o, p, m, n : longint;
    x1, y1, x2, y2, xe, ye, x, y, sk : longint;
    bor : longint;



procedure input;
var f : text;
 begin
  assign(f, '');
  reset(f);
  readln(f, m, n);
  for i := 1 to m do
    begin
     for j := 1 to n do
       read(f, a[i, j]);
     readln(f);
    end;
  readln(f, p);
  for i := 1 to p do
    begin
     read(f, x, y);
     readln(f, trap[x, y].x, trap[x, y].y);
     used[trap[x, y].x, trap[x, y].y] := 1;
    end;
  readln(f, x1, y1);
  readln(f, x2, y2);
  readln(f, xe, ye);
  close(f);
  k := 0;
  sk := 1;
  for i := 1 to m do
    for j := 1 to n do
      if used[i, j] = 1 then
        begin
         inc(k);
         sk := sk * 2;
        end;
  bor := (sk - 1) * m * n * m * n;
 end;


begin
 input;
 if k >= 5 then writeln(0)
 else writeln(1);
end.

