VAR
fis,fis2:text;
x,y,z,a,b,c,n,plm,ply,ziua,plz,nr,i,j:integer;

begin
assign(fis,'iepuri.in');
assign(fis2,'iepuri.out');
reset(fis);
rewrite(fis2);
readln(fis,nr);
for i:=1 to nr do
        BEGIN
        read(fis,x,y,z,a,b,c,n);

        for j:=1 to n-2 do
        BEGIN
        ziua:=a*z+b*y+c*x;
        plz:=z;
        z:=ziua;
        ply:=y;
        y:=plz;
        x:=ply;


        END;

        writeln(fis2,ziua mod 666013);
   END;
close(fis2);
end.