program cc(input,output);
var
a:array[1..3,1..15000]of longint;
i1,i2,x,q,d,p,i,j,c:longint;
n:string;
begin
assign(input,'cruell.in');
assign(output,'cruell.out');
reset(input);
rewrite(output);
read(n);
read(p);
for i:=1 to length(n) do
begin
a[1,i]:=ord(n[i])-48;
a[2,i]:=ord(n[i])-48;
x:=x-1;
end;
for i:=1 to p do
begin
for i1:=1 to 15000 do
for i2:=1 to 15000 do
begin
a[3,i1+i2]:=a[3,i1+i2]+a[1,i1]*a[2,i2];
for c:=1 to 15000 do
a[1,i]:=a[3,i];
for j:=15000 downto 1 do
begin
if a[1,j]>=10 then
begin
a[1,j-1]:=a[1,j-1]+a[1,j] div 10;
a[1,j]:=a[1,j] mod 10;
end;
end;
end;
end;
for i:=15000 downto 1 do
begin
if a[1,i]<>0 then d:=i;
if q<d then q:=d;
end;
for i:=1 to q do
write(a[1,i]);
close(input);
close(output);
end.