program lgput;
var
n,m,i,k,sol:int64;
f1,f2:text;
begin
assign (f1,'lgput.in');
assign (f2,'lgput.out');
reset (f1);
rewrite (f2);
readln (f1,n,m);
n:=n mod 1999999973; sol:=1;
while m>0 do begin
if m mod 2=0 then begin n:=(n mod 1999999973)*(n mod 1999999973) end else
begin
sol:=(sol mod 1999999973)*(n mod 1999999973);
n:=(n mod 1999999973)*(n mod 1999999973);
end;
m:=m div 2;
end;
writeln (f2,sol mod 1999999973);
close (f1);
close (f2);
end.