#include <fstream>

using namespace std;

ifstream f("dezastru.in");
ofstream g("dezastru.out");

int n, k;
int x[26];
long double p[26];
long long fact[26], nr;
long double rez;

void bkt(int niv, long double prod)
{
    for (int i=x[niv-1]+1; i<=n; i++)
    {
        x[niv] = i;
        prod *= p[i];

        if (niv == k)
        {
            rez += prod;
            nr++;
        }
        else
            bkt(niv+1, prod);

        prod /= p[i];
    }
}

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

    fact[1] = 1;
    for (int i=2; i<=k; i++)
        fact[i] = fact[i-1] * i;

    bkt(1, 1);

    rez /= nr;

    g << rez;

    return 0;
}