program iepurasi;
var f,g:text;
    nr,z1,z2,z3,s,x,y,z,a,b,c,l,m:integer;
    n:longint;
begin
        assign(f,'iepuri.in');reset(f);
        assign(g,'iepuri.out');rewrite(g);
        readln(f);
        while not eof(f) do begin
        readln(f,x,y,z,a,b,c,n);
        nr:=0;
        z1:=0;z2:=0;z3:=0;
        repeat
        if nr=0 then z1:=x
                else if nr=1 then begin z1:=y; z2:=x; end
                          else if nr=2 then begin z1:=z; z2:=y;z3:=x;end;
        s:=z1+z2+z3;
        if nr>2 then begin
                        s:=a*z1+b*z2+c*z3;
                        l:=z1;
                        m:=z2;
                        z1:=s;
                        z2:=l;
                        z3:=m;
                        end;
        inc(nr);
        until nr=n+1;
        writeln(g,s mod 666013);
        end;
        close(f);close(g);
end.