Program iepurasi;
var fi,fo : text;
    ip:array[0..10000] of qword;
    i,n,r,a,b,c,q : longint;
begin
      assign(fi,'iepuri.in');  reset(fi); readln(fi,q); assign(fo,'iepuri.out'); rewrite(fo);
      for i:=1 to q do begin
                        read(fi,ip[0],ip[1],ip[2]); read(fi,a,b,c,n);
                        for r:=3 to n do ip[r]:=a*ip[r-1]+b*ip[r-2]+c*ip[r-3];
                        writeln(fo,ip[n] mod 666013);
                        end;
      close(fi); close(fo);
end.