#include<stdio.h>
FILE *f=fopen("dezastru.in","r");
FILE *g=fopen("dezastru.out","w");
float p[100],a[100][100];
int i,j,n,k,nr;
int fact(int x)
{
int i,p=1;
if(x)
{
for(i=1;i<=x;i++)
p*=i;
return p;
}
else return 1;
}
int main(void)
{
fscanf(f,"%d%d",&n,&k);
for(i=1;i<=n;i++)
fscanf(f,"%f",&p[i]);
for(i=0;i<=n;i++)
a[i][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];
nr=fact(n)/(fact(n-k)*fact(k));
fprintf(g,"%f",a[n][k]/nr);
return 0;
}