var f,g:text;
    i,n,p:byte;
    x:array[1..9] of byte;

procedure citire;
  begin
    assign(f,'lgput.in');
    reset(f);
    readln(f,n,p);
    close(f);
    assign(g,'lgput.out');
    rewrite(g);
  end;

function putere(n,p:longint):longint;
  begin
    if p=0 then putere:=1
      else if odd(p) then putere:=n*putere(n,p-1)
        else putere:=sqr(putere(n,p div 2));
  end;

begin
  citire;
  writeln(g,putere(n,p) mod 1999999973);
  close(g);
end.