#include <fstream>
#include <iomanip>

using namespace std;

ifstream f("dezastru.in");
ofstream g("dezastru.out");
int n,p,i,x[26];
double v[26],s,S;
void tipar(int k)
{
    s=1;
    for(int i=1;i<=k;i++)
        s=s*v[x[i]];
    s=s*2;
    S=S+s;
}
void backt(int k)
{
    for(int i=x[k-1]+1;i<=n;i++)
    {
            x[k]=i;
            if(k==p)
                tipar(k);
            else
                backt(k+1);
    }
}
int main()
{
    f>>n>>p;
    for(i=1;i<=n;i++)
        f>>v[i];
    backt(1);
    for(i=2;i<=n;i++)
        S=S/i;
    g<<setprecision(6)<<fixed<<S;
    return 0;
}