var a,b,c,x,y,z,n,aux,aux2,t:qword;
    f,g:text;
    i,j:longint;
begin
assign(f,'iepuri.in');reset(f);
assign(g,'iepuri.out');rewrite(g);
read(f,t);
for i:=1 to t do begin
 read(f,x,y,z,a,b,c,n);
 for j:=1 to n-2 do begin
  aux:=z;
  aux2:=y;
  z:=c*x+a*z+b*y;
  y:=aux;
  x:=aux2;
 end;
 writeln(g,z mod 666013);
end;
close(f);
close(g);
end.