var intr,iesi:text;
	i,j,n:longint;
	a,b,c,x,x1,y1,y,z,zi:qword;
	
begin
assign(intr,'iepuri.in');
reset(intr);
assign(iesi,'iepuri.out');
rewrite(iesi);
read(intr,n);

for i:=1 to n do
begin
	read(intr,x,y,z,a,b,c,zi);
	j:=2;
	while (j<zi) do
	begin
		j:=j+1;
		x1:=x;
		y1:=y;
		x:=y;
		y:=z;
		z:=(z*a+x1*c+y1*b) mod 666013;
	end;
	writeln(iesi,z);
end;


close(intr);
close(iesi);
end.