#include <iostream>
#include <fstream>
#include <iomanip>

using namespace std;

ifstream fin("dezastru.in");
ofstream fout("dezastru.out");

int n, m;
double p[27], a[27][27], rez, nr = 1;

int main()
{
    fin>>n>>m;
    for(int i=1; i<= n; i++)
        fin>>p[i];

    a[0][0] = 1;
    for(int i=1; i<=n; i++)
    {
        a[i][0] = 1;
        for(int j=1; j<=m; j++)
            a[i][j] = a[i-1][j] + a[i-1][j-1] * p[i];
    }

    for(int i=m+1; i<=n; i++)
        nr *= i;
    for(int i=2; i<=n-m; i++)
        nr /= i;

    rez = a[n][m] / nr;
    fout<<setprecision(6)<<fixed<<rez;

    return 0;
}