Problem: The heat during the last few days has been really intense. Scientists from all over the Berland study how the temperatures and weather change, and they claim that this summer is abnormally hot. But any scientific claim sounds a lot more reasonable if there are some numbers involved, so they have decided to actually calculate some value which would represent how high the temperatures are.

Mathematicians of Berland State University came up with a special heat intensity value. This value is calculated as follows:

Suppose we want to analyze the segment of n consecutive days. We have measured the temperatures during these n days; the temperature during i-th day equals a_i.

We denote the average temperature of a segment of some consecutive days as the arithmetic mean of the temperature measures during this segment of days. So, if we want to analyze the average temperature from day x to day y, we calculate it as \frac{∑ _{i = x}^{y} a_i}{y - x + 1} (note that division is performed without any rounding). The heat intensity value is the maximum of average temperatures over all segments of not less than k consecutive days. For example, if analyzing the measures [3, 4, 1, 2] and k = 3, we are interested in segments [3, 4, 1], [4, 1, 2] and [3, 4, 1, 2] (we want to find the maximum value of average temperature over these segments).

You have been hired by Berland State University to write a program that would compute the heat intensity value of a given period of days. Are you up to this task?

Input

The first line contains two integers n and k (1 ≤ k ≤ n ≤ 5000) — the number of days in the given period, and the minimum number of days in a segment we consider when calculating heat intensity value, respectively.

The second line contains n integers a_1, a_2, ..., a_n (1 ≤ a_i ≤ 5000) — the temperature measures during given n days.

Output

Print one real number — the heat intensity value, i. e., the maximum of average temperatures over all segments of not less than k consecutive days.

Your answer will be considered correct if the following condition holds: |res - res_0| < 10^{-6}, where res is your answer, and res_0 is the answer given by the jury's solution.

Example

Input

4 3
3 4 1 2


Output

2.666666666666667

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
set<long long int> s;
bool ar[100001];
void seive() {
  ar[0] = ar[1] = true;
  for (long long int p = 2; p * p <= 100001; p++) {
    if (ar[p] == false) {
      for (long long int i = p * p; i <= 100001; i += p) ar[i] = true;
    }
  }
  for (long long int p = 2; p <= 100001; p++) {
    if (ar[p] == false) s.insert(p);
  }
}
bool is_palindrome(string str) {
  long long int len = str.length();
  for (long long int i = 0; i <= len / 2; i++) {
    if (str[i] != str[len - 1 - i]) return false;
  }
  return true;
}
long long int binexpo(long long int x, long long int y, long long int p) {
  long long int res = 1;
  x = x % p;
  while (y > 0) {
    if (y & 1) res = (res * x) % p;
    y = y >> 1;
    x = (x * x) % p;
  }
  return res;
}
void solve() {
  long long int n, k;
  cin >> n >> k;
  vector<long long int> v(n);
  vector<double> prefix;
  for (long long int i = 0; i < n; i++) cin >> v[i];
  prefix.push_back(v[0]);
  double sum = v[0];
  for (long long int i = 1; i < n; i++) {
    sum += v[i];
    prefix.push_back(sum);
  }
  long long int start;
  double ans, mx = 0.0000000;
  for (long long int i = k; i <= n; i++) {
    start = 0;
    for (long long int j = i - 1; j < n; j++) {
      if (j == i - 1) {
        ans = prefix[j] / i;
        if (ans > mx) mx = ans;
      } else {
        ans = (prefix[j] - prefix[start]) / i;
        start++;
        if (ans > mx) mx = ans;
      }
    }
  }
  std::cout << std::fixed;
  std::cout << std::setprecision(6);
  (mx);
  cout << mx;
  return;
}
int32_t main() {
  ios_base::sync_with_stdio(false);
  cin.tie(NULL);
  cout.tie(NULL);
  ;
  solve();
  return 0;
}