{
TASK:lab101
LANG:PASCAL
}
var
 n,m,a,s,x,y,i,j,k,l,q:longint;
begin
  readln(n,m);
  for i:=1 to n do
   for j:=1 to m do
    begin read(a); inc(s,a); end;
  readln(a);
  for i:=1 to a do begin read(j,k,l,q); inc(s,j); inc(s,q); end;
  readln (x,y,i,j,k,l);
  inc(s,x*y); inc(s,i*j); inc(s,k*l);
  s:=s mod 1366613;
  s:=s mod 3;
  if s=2 then s:=1 else if s=1 then s:=2;
  writeln(s);
end.