program iepuri;
type vect = array [0..10000000] of longint;
var X,Y,Z,A,B,C,i,j,k,l,N,M : longint;
    Q : vect;
    f,g : text;
begin
assign(f,'iepuri.in');
reset(f);
assign(g,'iepuri.out');
rewrite(g);

readln(f,k);

l := 0;

repeat
inc(l);

readln(f,X,Y,Z,A,B,C,N);
j := 0;
Q[j] := X;
inc(j);
Q[j] := Y;
inc(j);
Q[j] := Z;
inc(j);

for i := j to n do
Q[i] := A*Q[i-1]+B*Q[i-2]+C*Q[i-3];

writeln(g,Q[n] mod 666013);

until l=k;

close(f);
close(g);

end.