var
 b:array[1..20]of integer;
 a,c:array[1..20001]of integer;
 n,i,j,k,p,x:longint;
 s:string;
 f,g:text;
procedure print;
 var
  i,j,k:integer;
 begin
  k:=0;
  for i:=15001 downto 1 do
   if a[i]<>0 then begin
                    for j:=i downto 1 do
                    begin
                     k:=k+1;
                     if k=71 then begin k:=1;writeln(g);write(g,a[i]);end
                             else write(g,a[j]);
                    end;
                    exit;
                   end;
 end;
procedure can;
 var
  i,j,k:integer;
 begin
  for i:=1 to length(s)*x do
   for j:=1 to length(s) do
    c[i+j-1]:=c[i+j-1]+a[i]*b[j];
  for i:=1 to length(s)*(x+1) do
   begin
    c[i+1]:=c[i+1]+c[i]div 10;
    c[i]:=c[i]mod 10;
   end;
  for i:=1 to length(s)*(x+1) do
   a[i]:=c[i];
 end;
begin
 assign(f,'cruel1.in');
 assign(g,'cruel1.out');
 reset(f);
 rewrite(g);
 readln(f,n,p);
 str(n,s);
 for i:=1 to length(s) do
  a[length(s)-i+1]:=ord(s[i])-48;
 for i:=1 to length(s) do
  b[i]:=a[i];
 for x:=1 to p-1 do
 begin
  fillchar(c,sizeof(c),0);
  can;
 end;
 print;
 close(f);
 close(g);
end.