var numowowowo,x,y,z,b,a,c,n,t,i:longint;
    u,q:text;
    iepuri:array[0..100000] of longint;
begin
//WoooOOOOoooOOOooo!
assign (u,'iepuri.in'); reset(u);
assign (q,'iepuri.out'); rewrite(q);
readln(u,t);
for numowowowo:=1 to t do begin
  read(u,iepuri[0]); read(u,iepuri[1]); read(u,iepuri[2]); read(u,a); read(u,b); read(u,c); read(u,n); readln(u);
      for i:=1 to n-2 do begin
      iepuri[3]:=(c*iepuri[0]) + (b*iepuri[1]) + (a*iepuri[2]);
    if iepuri[3] > 666013 then
      iepuri[3]:=iepuri[3] mod 666013
      else if iepuri[3] = 666013 then iepuri[3]:=0;
      iepuri[0]:=iepuri[1];
      iepuri[1]:=iepuri[2];
      iepuri[2]:=iepuri[3];
      end;
writeln(q,iepuri[3]);
end;
close(u); close(q);
end.