Program puterelog;
var x,p,r:qword;
        f1,f2:text;

begin
assign(f1,'lgput.in'); reset(f1);
assign(f2,'lgput.out'); rewrite(f2);

read(f1,x,p);

r:=1;
if p mod 2=1 then
        begin
                r:=(r*x) mod 1999999973;
                p:=p-1;
        end;

while p>1 do
        begin
            x:=(x*x) mod 1999999973;
            p:=p div 2;
        end;

if p mod 2=1 then
        r:=(r*x) mod 1999999973;



write(f2,x);


close(f1);
close(f2);
end.