var n,t0,t1:int64;
    a,b,x,y,z,m:integer;
    f,g:text;

 procedure citire;
  begin
  readln(f,t0,t1,a,b,x,y,z,m,n);
  end;

 procedure rsir;
  var i,aux:int64;
  begin
   if n=0 then write(g,t0 mod m)
   else
     begin
     i:=1;
     while i<n do
       begin
       i:=i+1;
       aux:=t1;
       t1:=a*sqr(t0)+b*sqr(t1)+x*t0+y*t1+z;
       t0:=aux;
       end;
     write(g,t1 mod m);
     end;
  end;

begin
  assign(f,'rsir.in');
  assign(g,'rsir.out');
  reset(f);
  rewrite(g);
  citire;
  rsir;
  close(f);
  close(g);
end.