program z5_11;
var a,i,n,b :integer;

begin
b:=1;
write('vvedite a, n');
read(a,n);
n:=round(ln(n)/ln(2));
for i:=1 to n do b:=b*a;
writeln(b);
readln;
end.