var n,j,i,rest:longint;
    a,b,c,x,y,z:integer;
    t:integer;
    f,g:text;
    iepuri:array[0..100]of longint;
begin
assign (f,'iepuri.in');reset(f);
assign (g,'iepuri.out');rewrite (g);
read(f,t);
for j:=1 to t do begin readln(f);
read (f,x,y,z,a,b,c,n);
iepuri[0]:=x;iepuri[1]:=y;iepuri[2]:=z;
for i:=3 to n do begin
   iepuri[i]:=a*iepuri[i-1]+b*iepuri[i-2]+c*iepuri[i-3];end;
 rest:=iepuri[n] mod 666013;
 write(g,rest);writeln(g);end;
close (f);
close (g);
end.