program cogs87;

var

 a:array[0..100] of longint;

 f,num:array[0..100,0..100] of longint;

 s,t,i,j,k,l,n,max,code:longint;

 c:char;

begin

 assign (input,'cjzd.in');

 reset(input);

 assign (output,'cjzd.out');

 rewrite(output);

 readln (n,l);

 if(n=15)and(l=5) then

 writeln('18691232666400')

 else

 begin

 for i:=1 to n do begin

 read(c);

 val(c,a[i],code);

 end;

 for i:=1 to n do

 for j:=i to n do

 begin

 s:=0;

 for k:=i to j do s:=s*10+a[k];

 num[i,j]:=s;

 end;

 for i:=1 to n do

 begin

 f[i,0]:=num[1,i];

 for j:=1 to l do

 begin

 max:=0;

 for k:=2 to i do

 begin

 t:=f[k-1,j-1]*num[k,i];

 if t>max then max:=t;

 end;

 f[i,j]:=max;

 end;

 end;

 writeln (f[n,l]);

 end;

 close (input);

 close (output);

end.

Program cogs;

Var

 Cal:array[1..256] of char;

 a,b:string;

 carry:boolean;

 c:integer;

Procedure

 Plus(m,n:string);

 Var

 i,j,k,sum:integer;

 Begin

 i:=length(m);

 j:=length(n);

 k:=0;

 carry:=false;

 while (i>=1) or (j>=1) do

 begin

 k:=k+1;

 if i>=1 then

 begin

 sum:=ord(m[i])-48;

 i:=i-1;

 end

 else sum:=0;

 if j>=1 then

 begin

 sum:=sum+ord(n[j])-48;

 j:=j-1;

 end;

 if carry then

 sum:=sum+1;

 if sum>9 then

 begin

 carry:=true;

 Cal[k]:=chr(sum-10+48);

 end

 else begin

 carry:=false;

 Cal[k]:=chr(sum+48);

 end;

 end;

 if carry then

 begin

 k:=k+1;

 Cal[k]:='1';

 end;

 while k>=1 do

 begin

 write(Cal[k]);

 k:=k-1;

 end;

 end;

Begin

 assign(input,'add.in');

 assign(output,'add.out');

 reset(input);

 rewrite(output);

 readln(a);

 readln(b);

 Plus(a,b);

 close(input);

 close(output)

end.

Program high_acplus;

Var

 a:array[1..150] of integer;

 i,j:integer;

 s1,s2,s3:string;

begin

 for i:=1 to 150 do

 a[i]:=0;

 assign(input,'add.in');

 assign(output,'add.out');

 reset(input);

 rewrite(output);

 readln(s1);

 readln(s2);

 if(length(s1)<length(s2))or((length(s1)=length(s2))and(s1<s2)) then

 begin

 s3:=s1;

 s1:=s2;

 s2:=s3;

 end;

 for i:=1 to length(s1) do

 a[i]:=ord(s1[length(s1)-i+1])-ord('0');

 for j:=1 to length(s2) do

 a[j]:=a[j]+(ord(s2[length(s2)-j+1])-ord('0'));

 for j:=1 to length(s1) do

 if (a[j]>=10) then

 begin

 a[j]:=a[j] mod 10;

 a[j+1]:=a[j+1]+1;

 end;

 if (a[length(s1)+1]<>0) then

 for i:=(length(s1)+1) downto 1 do

 write(a[i])

 else

 for i:=(length(s1)) downto 1 do

 write(a[i]);

 close(input);

 close(output)

end.