{
TASK:area
LANG:Pascal
}
var
c,n,i,x,y:cardinal;
begin
read(x,y);
c:=x+y;
read(x,y);
c:=c+x+y;
read(x,y);
c:=c+x+y;
read(n);
for i:=1 to n do
begin
read(x,y);
c:=x+y+c;
read(x,y);
c:=x+y+c;
end;

writeln((c*c mod 6661313)+13112433)




end.