program prog;
var v:array[1..100] of longint;
    m,n,i,j,a,b,c,ss:longint;
    f,g:text;
begin
assign(f,'iepuri.in');
reset(f);
assign(g,'iepuri.out');
rewrite(g);
readln(f,j);
for ss:=1 to j do begin
m:=3;
read(f,v[1],v[2],v[3],a,b,c,n);
readln(f);
for i:=3 to n do begin
v[m+1]:=0;
v[m+1]:=(v[m+1]+v[m]*a+v[m-1]*b+v[m-2]*c) mod 666013;
m:=m+1;
end;
writeln(g,v[m]);
end;
end.