#include<fstream.h>

 ifstream f("dezastru.in");
 ofstream g("dezastru.out");
 float a[100][100],c[100][100]; float p[100];
 int i,n,k,j;

int main()
{
 f>>n>>k;
 for(i=1;i<=n;i++)
 { f>>p[i];a[i][0]=c[i][0]=1;}
  a[0][0]=c[0][0]=1;
  for(i=1;i<=n;i++)
   for(j=1;j<=i;j++)
   { a[i][j]=a[i-1][j]+a[i-1][j-1]*p[i];
     c[i][j]=c[i-1][j-1]+c[i-1][j];
     }
g<<(a[n][k]/c[n][k]);
 return 0;

}