program  stepin;
var a,b,c:array[0..100000] of integer;
n,j,i:integer;
f:text;
ch:char;
ost:integer;
begin
assign(f,'long.dat');
reset(f);
readln(f,b[1]);
readln(f,n);
close (f);
a[1]:=1;
a[0]:=1;
for j:=1 to n do begin

if a[0]>b[0] then c[0]:=a[0] else c[0]:=b[0];
ost:=0;
for i:=1 to c[0] do begin
                 c[i]:=(a[i]*b[1]+ost) mod 10;
                 ost:=(a[i]*b[1]+ost) div 10;
                      end;

if ost>0 then begin c[0]:=c[0]+1;c[c[0]]:=ost;end;

a[0]:=c[0];
for i:=1 to c[0] do a[i]:=c[i];

end;

assign(f,'long.sol');
rewrite(f);
for i:=c[0] downto 1 do write(f,c[i]);
close(f);
end.