Problem: An e-commerce startup pitches to the investors to get funding. They have been functional for n weeks now and also have a website!

For each week they know the number of unique visitors during this week vi and the revenue ci. To evaluate the potential of the startup at some range of weeks from l to r inclusive investors use the minimum among the maximum number of visitors multiplied by 100 and the minimum revenue during this period, that is: 

<image>

The truth is that investors have no idea how to efficiently evaluate the startup, so they are going to pick some k random distinct weeks li and give them to managers of the startup. For each li they should pick some ri ≥ li and report maximum number of visitors and minimum revenue during this period.

Then, investors will calculate the potential of the startup for each of these ranges and take minimum value of p(li, ri) as the total evaluation grade of the startup. Assuming that managers of the startup always report the optimal values of ri for some particular li, i.e., the value such that the resulting grade of the startup is maximized, what is the expected resulting grade of the startup? 

Input

The first line of the input contains two integers n and k (1 ≤ k ≤ n ≤ 1 000 000).

The second line contains n integers vi (1 ≤ vi ≤ 107) — the number of unique visitors during each week.

The third line contains n integers ci (1 ≤ ci ≤ 107) —the revenue for each week.

Output

Print a single real value — the expected grade of the startup. Your answer will be considered correct if its absolute or relative error does not exceed 10 - 6. 

Namely: let's assume that your answer is a, and the answer of the jury is b. The checker program will consider your answer correct, if <image>.

Examples

Input

3 2
3 2 1
300 200 300


Output

133.3333333

Note

Consider the first sample.

If the investors ask for li = 1 onwards, startup will choose ri = 1, such that max number of visitors is 3 and minimum revenue is 300. Thus, potential in this case is min(3·100, 300) = 300.

If the investors ask for li = 2 onwards, startup will choose ri = 3, such that max number of visitors is 2 and minimum revenue is 200. Thus, potential in this case is min(2·100, 200) = 200.

If the investors ask for li = 3 onwards, startup will choose ri = 3, such that max number of visitors is 1 and minimum revenue is 300. Thus, potential in this case is min(1·100, 300) = 100.

We have to choose a set of size 2 equi-probably and take minimum of each. The possible sets here are : {200, 300},{100, 300},{100, 200}, effectively the set of possible values as perceived by investors equi-probably: {200, 100, 100}. Thus, the expected value is (100 + 200 + 100) / 3 = 133.(3).

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
template <typename TH>
void _dbg(const char* sdbg, TH h) {
  cerr << sdbg << "=" << h << "\n";
}
template <typename TH, typename... TA>
void _dbg(const char* sdbg, TH h, TA... t) {
  while (*sdbg != ',') cerr << *sdbg++;
  cerr << "=" << h << ",";
  _dbg(sdbg + 1, t...);
}
template <class C>
void mini(C& a4, C b4) {
  a4 = min(a4, b4);
}
template <class C>
void maxi(C& a4, C b4) {
  a4 = max(a4, b4);
}
template <class T1, class T2>
ostream& operator<<(ostream& out, pair<T1, T2> pair) {
  return out << "(" << pair.first << ", " << pair.second << ")";
}
template <class A, class B, class C>
struct Triple {
  A first;
  B second;
  C third;
  bool operator<(const Triple& t) const {
    if (first != t.first) return first < t.first;
    if (second != t.second) return second < t.second;
    return third < t.third;
  }
};
template <class T>
void ResizeVec(T&, vector<long long>) {}
template <class T>
void ResizeVec(vector<T>& vec, vector<long long> sz) {
  vec.resize(sz[0]);
  sz.erase(sz.begin());
  if (sz.empty()) {
    return;
  }
  for (T& v : vec) {
    ResizeVec(v, sz);
  }
}
template <class A, class B, class C>
ostream& operator<<(ostream& out, Triple<A, B, C> t) {
  return out << "(" << t.first << ", " << t.second << ", " << t.third << ")";
}
template <class T>
ostream& operator<<(ostream& out, vector<T> vec) {
  out << "(";
  for (auto& v : vec) out << v << ", ";
  return out << ")";
}
const long long N = 1e6 + 5;
long double fac[N];
long double newt(long long n, long long k) {
  if (n < k || k < 0) {
    return 0;
  }
  return exp(fac[n] - fac[k] - fac[n - k]);
}
long long v[N], r[N];
long long rr[N][20];
long long larg[N];
long long MM(long long i, long long j) {
  long long len = j - i + 1;
  return min(rr[i][larg[len]], rr[j + 1 - (1 << larg[len])][larg[len]]);
}
int main() {
  ios_base::sync_with_stdio(0);
  cout << fixed << setprecision(10);
  if (0) cout << fixed << setprecision(10);
  cin.tie(0);
  for (long long i = (1); i <= (N - 1); ++i) {
    fac[i] = fac[i - 1] + log(i);
  }
  long long n, k;
  cin >> n >> k;
  for (long long i = (1); i <= (n); ++i) {
    cin >> v[i];
    v[i] *= 100;
  }
  larg[0] = -1;
  for (long long i = (1); i <= (n); ++i) {
    cin >> r[i];
    rr[i][0] = r[i];
    larg[i] = larg[i - 1] + ((i & (i - 1)) == 0);
  }
  long long part = 1;
  for (long long l = (1); l <= (19); ++l) {
    part *= 2;
    for (long long i = (1); i <= (n); ++i) {
      if (i + part - 1 <= n) {
        rr[i][l] = min(rr[i][l - 1], rr[i + part / 2][l - 1]);
      }
    }
  }
  vector<pair<long long, long long> > stac;
  vector<long long> vals;
  for (long long i = (n); i >= (1); --i) {
    while (!stac.empty() && (stac.back().first <= v[i])) {
      stac.pop_back();
    }
    stac.push_back({v[i], i});
    long long kl = 0, kp = ((long long)(stac).size()) - 1, faj = 0;
    while (kl <= kp) {
      long long aktc = (kl + kp) / 2;
      long long ziom = MM(i, stac[aktc].second);
      if (stac[aktc].first > ziom) {
        kl = aktc + 1;
      } else {
        kp = aktc - 1;
      }
      maxi(faj, min(stac[aktc].first, ziom));
    }
    vals.push_back(faj);
    if (0) cout << faj << " ";
  }
  if (0) cout << endl;
  assert(((long long)(vals).size()) == n);
  sort((vals).begin(), (vals).end());
  long double res = 0;
  for (long long i = (1); i <= (n); ++i) {
    if (n - i < k - 1) {
      break;
    }
    res += exp(fac[n - i] - fac[n - i - k + 1] - fac[k - 1] - fac[n] + fac[k] +
               fac[n - k]) *
           vals[i - 1];
  }
  cout << res << endl;
  return 0;
}