var v :array [1..26] of longint;
    w:array [1..26] of double;
    r, r1:double;
    p, i, j, n, m, t:longint;
    f, g:text;

procedure tipar;
  begin
  r1:=1;
  for i := 1 to m do r1:=r1*w[v[i]];
  inc (t); r:=r+r1;
  end;

begin
assign (f, 'dezastru.in'); reset (f);
assign (g, 'dezastru.out'); rewrite (g);

read (f, n, m);
for i := 1 to n do read (f, w[i]);

p:=1;
while p > 0 do
  begin
  inc (v[p]);
  if v[p] > n then begin dec(p); end
              else
    begin
    if p=m then tipar
           else begin inc (p); v[p]:=v[p-1]; end;
    end;
  end;

r:=r/t;
writeln (g, r:6:6);

close (f); close (g);
end.