program test;
var a:array[1..100] of qword;
    x,n,p:qword;
    f,g:text;
begin
assign(f,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
readln(f,n,p);
x:=1;
while p<>1 do
begin
 if n mod 2=0 then begin
                    x:=x*n*n;
                    p:=p div 2;
                   end
       else begin
             x:=x*n*n;
             dec(p);
             p:=p div 2;
            end;
end;
writeln(g,x);
close(f); close(g);
end.