#include <fstream>
#include <iomanip>

using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");
int n,k,i,j,f1,f2,f3,comb;
double a[50],mat[50][50];
int main()
{
    f>>n>>k;
    f1=1;
    for(i=1;i<=n;i++)
    {
        f>>a[i];
    }
    f2=1;
    for(i=k+1;i<=n;i++)
    {
        f1*=i;
    }
    for(i=1;i<=n-k;i++)
    {
        f2*=i;
    }
    comb=f1/f2;
    for(i=0;i<=n;i++)
    {
        mat[i][0]=1;
    }
    for(i=1;i<=n;i++)
    {
        for(j=1;j<=i;j++)
            mat[i][j]=mat[i-1][j]+mat[i-1][j-1]*a[i];
    }
    g<<fixed<<setprecision(6)<<mat[n][k]/comb<< '\n';
    return 0;
}