var f,g:text;
    a,b,c,a1,b1,p:longint;

begin
     assign(f,'lgput.in');
     assign(g,'lgput.out');
     reset(f);
     rewrite(g);
     read(f,a,b);
     c:=1999999973;        {(a^b) mod c, c=1999999973}
     p:=1;
     b1:=b;
     a1:=a mod c;
     while b1<>0 do
     begin
         if b1 mod 2=1 then
            p:=(p*a1)mod c;
         a1:=(a1*a1)mod c;
         b1:=b1 div 2;
     end;
     write(g,p);
     close(f);
     close(g);
end.