var f:text;
    n,i,p,s,o,k:longint;

begin
 assign(f,'lgput.in');
 reset(f);
 readln(f,n,p);
 close(f);


 if p mod 2<>0 then begin
   o:=n;
   dec(p);
   end
 else o:=1;

 k:=p div 2;
 s:=1;
 n:=n mod 1999999973;
 for i:=1 to k do begin
        s:=s*n;
        s:=s mod 1999999973;
 end;

 s:=s*s*o;
 s:=s mod 1999999973;

 assign(f,'lgput.out');
 rewrite(f);
 writeln(f,s);
 close(f);
end.