program iepuri;
var X,Y,Z,A,B,C : real;
    T,i : integer;
    N : longint;
    Intrare,Iesire : text;

procedure Citeste;
begin
  readln(Intrare,X,Y,Z,A,B,C,N);
end;

function rest(r : real) : real;
begin
  rest:=r-int(r/666013);
end;

procedure Scrie;
var aux : real;
    i : longint;
begin
  for i:=3 to N do
   begin
     aux:=A*Z+B*Y+C*X;
     X:=Y;
     Y:=Z;
     Z:=aux;
   end;
  writeln(Iesire,rest(Z):0:0);
end;

begin
  assign(Intrare,'iepuri.in');
  reset(Intrare);
  assign(Iesire,'iepuri.out');
  rewrite(Iesire);
  readln(Intrare,T);
  for i:=1 to T do
   begin
     Citeste;
     Scrie;
   end;
  close(Intrare);
  close(Iesire);
end.