Problem: Once upon a time an old man and his wife lived by the great blue sea. One day the old man went fishing and caught a real live gold fish. The fish said: "Oh ye, old fisherman! Pray set me free to the ocean and I will grant you with n gifts, any gifts you wish!". Then the fish gave the old man a list of gifts and their prices. Some gifts on the list can have the same names but distinct prices. However, there can't be two gifts with the same names and the same prices. Also, there can be gifts with distinct names and the same prices. The old man can ask for n names of items from the list. If the fish's list has p occurrences of the given name, then the old man can't ask for this name of item more than p times.

The old man knows that if he asks for s gifts of the same name, the fish will randomly (i.e. uniformly amongst all possible choices) choose s gifts of distinct prices with such name from the list. The old man wants to please his greedy wife, so he will choose the n names in such a way that he can get n gifts with the maximum price. Besides, he isn't the brightest of fishermen, so if there are several such ways, he chooses one of them uniformly.

The old man wondered, what is the probability that he can get n most expensive gifts. As the old man isn't good at probability theory, he asks you to help him.

Input

The first line contains two space-separated integers n and m (1 ≤ n, m ≤ 1000) — the number of the old man's wishes and the number of distinct names in the goldfish's list, correspondingly. Then m lines follow: the i-th line first contains integer ki (ki > 0) — the number of distinct prices of gifts with the i-th name, then ki distinct space-separated integers cij (1 ≤ cij ≤ 109), the gifts' prices. 

It is guaranteed that the sum of all ki doesn't exceed 1000. It is guaranteed that n is not greater than the total number of the gifts.

Output

On a single line print one real number — the probability of getting n most valuable gifts. The answer will be considered correct if its absolute or relative error does not exceed 10 - 9.

Examples

Input

3 1
3 10 20 30


Output

1.000000000


Input

3 2
1 40
4 10 20 30 40


Output

0.166666667

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
template <class T>
inline void upmax(T& a, T b) {
  if (a < b) a = b;
}
template <class T>
inline void upmin(T& a, T b) {
  if (a > b) a = b;
}
const int maxn = 1007;
const int maxm = 200007;
const int mod = 1000000007;
const int inf = 0x7fffffff;
typedef int arr[maxn];
typedef int adj[maxm];
inline int add(int a, int b) { return ((long long)a + b) % mod; }
inline int mul(int a, int b) { return ((long long)a * b) % mod; }
inline int dec(int a, int b) { return add(a, mod - b % mod); }
inline int Pow(int a, int b) {
  int t = 1;
  while (b) {
    if (b & 1) t = mul(t, a);
    a = mul(a, a), b >>= 1;
  }
  return t;
}
template <typename Type>
inline Type RD() {
  char c = getchar();
  Type x = 0, flag = 1;
  while (!isdigit(c) && c != '-') c = getchar();
  if (c == '-')
    flag = -1;
  else
    x = c - '0';
  while (isdigit(c = getchar())) x = x * 10 + c - '0';
  return x * flag;
}
inline char rdch() {
  char c = getchar();
  while (!isalpha(c)) c = getchar();
  return c;
}
int n, m, a[maxn], k[maxn], tot;
long double f[maxn][maxn];
pair<int, int> obj[maxn];
void input() {
  n = RD<int>(), m = RD<int>();
  for (int i = 1, _ = m; i <= _; i++) {
    k[i] = RD<int>();
    for (int j = 1, _ = k[i]; j <= _; j++)
      obj[++tot] = pair<int, int>(RD<int>(), i);
  }
  sort(obj + 1, obj + tot + 1, greater<pair<int, int> >());
}
void solve() {
  int ed = n, st = n;
  while (st > 1 && obj[st - 1].first == obj[n].first) st--;
  while (ed < tot && obj[ed + 1].first == obj[n].first) ed++;
  int need = n - st + 1;
  long double p_tot = 1;
  for (int i = 1, _ = st - 1; i <= _; i++) {
    int t = obj[i].second;
    p_tot *= (a[t] + 1.0) / (k[t] - a[t]);
    a[t]++;
  }
  static long double k[maxn], a[maxn], val[maxn];
  for (int ii = st, _ = ed; ii <= _; ii++) {
    int i = ii - st + 1;
    k[i] = ::k[obj[ii].second], a[i] = ::a[obj[ii].second],
    val[i] = (a[i] + 1) / (k[i] - a[i]);
  }
  f[0][0] = p_tot;
  int len = ed - st + 1;
  for (int i = 1, _ = len; i <= _; i++)
    for (int j = 0, _ = i; j <= _; j++) {
      if (j) f[i][j] = f[i - 1][j - 1] * val[i] * j / i;
      f[i][j] += f[i - 1][j] * (i - j) / i;
    }
  printf("%.10lf\n", (double)f[len][need]);
}
int main() {
  input();
  solve();
  return 0;
}