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

using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");
int n,k,nr,x[100];
float s,v[100],a[100][100];

int main()
{
    f>>n>>k;
    for(int i=1;i<=n;i++)
    {
        f>>v[i];
        a[i-1][0]=1;
    }
    a[1][1]=v[1];
    for(int i=1;i<=n;i++)
        for(int j=1;j<=n;j++)
            a[i][j]=a[i-1][j]+a[i-1][j-1]*v[i];
    nr=k+1;
    g<<setprecision(6)<<a[3][2]/nr;
    return 0;
}