var st:array[1..10000] of longint;
    f,g:text;
    p,q:array[1..10000] of real;
    n,k,k1,i:longint;
    as,ev:boolean;
    s:real;
    nr:longint;



procedure initializare(k:longint);
begin
     st[k]:=0;
end;

procedure succesor(var as:boolean;k:longint);
begin
     if st[k]<n then
                    begin
                         st[k]:=st[k]+1;
                         as:=true;
                    end
                 else as:=false;
end;

procedure validare(var ev:boolean;k:longint);
var i:integer;
begin
     ev:=true;
     for i:=1 to k-1 do
              if st[k]=st[i] then ev:=false;
end;

function solutie(k:integer):boolean;
begin
     solutie:=(k=n+1);
end;

procedure tiparire;
var i:integer;
begin
     inc(nr);
     q[nr]:=1;
     for i:=1 to k1 do q[nr]:=q[nr]*p[st[i]];
end;

BEGIN
     k:=1;
     assign(f,'dezastru.in');
     reset(f);
     read(f,n,k);
     for i:=1 to n do read(f,p[i]);
     close(f);
     nr:=0;
     while k>0 do
           begin
                initializare(k);
                repeat
                      succesor(as,k);
                      if as then validare(ev,k);
                until (not as) or (as and ev);
                if as then
                   if solutie(k) then tiparire
                                 else
                                     begin
                                          k:=k+1;
                                          initializare(k);
                                     end
                       else k:=k-1;
           end;
     s:=0;
     for i:=1 to nr do s:=s+q[i]/nr;
     assign(g,'dezastru.out');rewrite(g);
     writeln(g,s:0:6);
     close(g);
END.