Program lgput;
 var f,g:text; n,p,i:longint; j,k:int64;
 begin
  assign (f,'lgput.in'); reset (f);
  assign (g,'lgput.out'); rewrite (g);
  readln (f,n,p);
  i:=p; j:=1; k:=n mod 1999999973;
  while i>0 do begin
    if odd (i) then j:=(j*k) mod 1999999973;
    k:=sqr (k) mod 1999999973;
    i:=i div 2;
  end;
  writeln (g,j);
  close (f); close (g);
 end.