Problem: Kyoya Ootori wants to take the train to get to school. There are n train stations and m one-way train lines going between various stations. Kyoya is currently at train station 1, and the school is at station n. To take a train, he must pay for a ticket, and the train also takes a certain amount of time. However, the trains are not perfect and take random amounts of time to arrive at their destination. If Kyoya arrives at school strictly after t time units, he will have to pay a fine of x.

Each train line is described by a ticket price, and a probability distribution on the time the train takes. More formally, train line i has ticket cost ci, and a probability distribution pi, k which denotes the probability that this train will take k time units for all 1 ≤ k ≤ t. Amounts of time that each of the trains used by Kyouya takes are mutually independent random values (moreover, if Kyoya travels along the same train more than once, it is possible for the train to take different amounts of time and those amounts are also independent one from another). 

Kyoya wants to get to school by spending the least amount of money in expectation (for the ticket price plus possible fine for being late). Of course, Kyoya has an optimal plan for how to get to school, and every time he arrives at a train station, he may recalculate his plan based on how much time he has remaining. What is the expected cost that Kyoya will pay to get to school if he moves optimally?

Input

The first line of input contains four integers n, m, t, x (2 ≤ n ≤ 50, 1 ≤ m ≤ 100, 1 ≤ t ≤ 20 000, 0 ≤ x ≤ 106).

The next 2m lines contain the description of the trains. 

The 2i-th line will have 3 integers ai, bi, ci, representing a one way train from station ai to bi with ticket cost ci (1 ≤ ai, bi ≤ n, ai ≠ bi, 0 ≤ ci ≤ 106). There will always be at least one path from any station to the school. 

The (2i + 1)-th line will contain t integers, pi, 1, pi, 2, ..., pi, t where pi, k / 100000 is the probability that this train will take k units of time to traverse (0 ≤ pi, k ≤ 100 000 for 1 ≤ k ≤ t, <image>). 

It is guaranteed that there is no more than one train between each pair of platforms in each of the directions.

Output

Print a single real number that is equal to an optimal expected cost of getting to school. The answer will be considered correct if its relative or absolute error doesn't exceed 10 - 6.

Examples

Input

4 4 5 1
1 2 0
50000 0 50000 0 0
2 3 0
10000 0 0 0 90000
3 4 0
100000 0 0 0 0
2 4 0
0 0 0 50000 50000


Output

0.7000000000


Input

4 4 5 1
1 2 100
50000 0 50000 0 0
2 3 100
10000 0 0 0 90000
3 4 100
100000 0 0 0 0
2 4 100
0 0 0 50000 50000


Output

200.7500000000

Note

The optimal strategy in the first case is as follows:

First, travel along first train line. With probability 1 / 2 Kyoya will take 1 time unit. Otherwise, Kyoya will take 3 time units.

If the train takes 1 time unit, travel along the 4th train line. Kyoya will make it to school in time with probability 1 / 2. Otherwise, if the train takes 3 time units, travel along the 2nd train line. Kyoya will make it to school in time with probability 1 / 10.

Since the cost of all train lines are zero, we can just look at the probability that Kyoya will incur the penalty. The probability that Kyoya will have to pay the penalty is 1 / 2 × 1 / 2 + 1 / 2 × 9 / 10 = 7 / 10. We can show that no other strategy is strictly better.

The optimal strategy in the second case is to travel along 1 → 2 → 4 no matter what. Kyoya will incur the penalty with probability 3 / 4, and the cost of the trains is 200, thus the expected cost is 200.75.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
namespace io {
const int SI = 1 << 21 | 1;
char IB[SI], *IS, *IT, OB[SI], *OS = OB, *OT = OS + SI - 1, c, ch[100];
int f, t;
inline void flush() { fwrite(OB, 1, OS - OB, stdout), OS = OB; }
inline void pc(char x) {
  *OS++ = x;
  if (OS == OT) flush();
}
template <class I>
inline void rd(I &x) {
  for (f = 1, c = (IS == IT ? (IT = (IS = IB) + fread(IB, 1, SI, stdin),
                              IS == IT ? EOF : *IS++)
                            : *IS++);
       c < '0' || c > '9';
       c = (IS == IT ? (IT = (IS = IB) + fread(IB, 1, SI, stdin),
                       IS == IT ? EOF : *IS++)
                     : *IS++))
    if (c == '-') f = -1;
  for (x = 0; c >= '0' && c <= '9'; x = (x << 3) + (x << 1) + (c & 15),
      c = (IS == IT ? (IT = (IS = IB) + fread(IB, 1, SI, stdin),
                      IS == IT ? EOF : *IS++)
                    : *IS++))
    ;
  x *= f;
}
inline void rds(char *s, int &x) {
  for (c = (IS == IT ? (IT = (IS = IB) + fread(IB, 1, SI, stdin),
                       IS == IT ? EOF : *IS++)
                     : *IS++);
       c < 33 || c > 126;
       c = (IS == IT ? (IT = (IS = IB) + fread(IB, 1, SI, stdin),
                       IS == IT ? EOF : *IS++)
                     : *IS++))
    ;
  for (x = 0; c >= 33 && c <= 126;
       s[++x] = c, c = (IS == IT ? (IT = (IS = IB) + fread(IB, 1, SI, stdin),
                                   IS == IT ? EOF : *IS++)
                                 : *IS++))
    ;
  s[x + 1] = '\0';
}
template <class I>
inline void print(I x, char k = '\n') {
  if (!x) pc('0');
  if (x < 0) pc('-'), x = -x;
  while (x) ch[++t] = x % 10 + '0', x /= 10;
  while (t) pc(ch[t--]);
  pc(k);
}
inline void prints(string s) {
  int x = s.length();
  while (t < x) pc(s[t++]);
  pc('\n'), t = 0;
}
struct Flush {
  ~Flush() { flush(); }
} flusher;
}  // namespace io
using io::print;
using io::prints;
using io::rd;
using io::rds;
namespace FFT {
const int N = 1 << 21 | 1;
const double PI = acos(-1);
struct I {
  double x, y;
  inline I() {}
  inline I(double x, double y) : x(x), y(y) {}
  inline I &operator=(int o) { return x = o, y = 0, *this; }
  inline I &operator=(double o) { return x = o, y = 0, *this; }
  inline I operator+(const I o) const { return I(x + o.x, y + o.y); }
  inline I operator-(const I o) const { return I(x - o.x, y - o.y); }
  inline I operator*(const I o) const {
    return I(x * o.x - y * o.y, x * o.y + y * o.x);
  }
} a[N], b[N];
inline void rd(I &x) {
  int o;
  ::rd(o), x = o;
}
inline void print(I x, char k = '\n') { ::print((int)(x.x + 0.5), k); }
int n, m, k, l, r[N];
inline void fft(I *a, int n, int x) {
  for (int i = 0; i < n; i++)
    if (i < r[i]) swap(a[i], a[r[i]]);
  for (int o = 2, k = 1; o <= n; o <<= 1, k <<= 1) {
    I W = I(cos(PI / k), x * sin(PI / k));
    for (int i = 0; i < n; i += o) {
      I w = I(1, 0);
      for (int j = 0; j < k; j++, w = w * W) {
        I x = a[i + j], y = w * a[i + j + k];
        a[i + j] = x + y, a[i + j + k] = x - y;
      }
    }
  }
}
inline void solve() {
  k = 1, l = 0;
  while (k <= n + m) k <<= 1, ++l;
  for (int i = 0; i < k; i++) r[i] = (r[i >> 1] >> 1) | ((i & 1) << (l - 1));
  for (int i = n + 1; i < k; i++) a[i] = 0;
  for (int i = m + 1; i < k; i++) b[i] = 0;
  fft(a, k, 1), fft(b, k, 1);
  for (int i = 0; i < k; i++) a[i] = a[i] * b[i];
  fft(a, k, -1);
  for (int i = 0; i <= n + m; i++) a[i].x /= k;
}
}  // namespace FFT
const int N = 53, M = 107, T = 2e4 + 7;
const double inf = 1e18;
int n, m, t, x, a[M], b[M];
double d[N][N], c[M], p[M][T * 2], f[N][T * 2], g[M][T];
void cdq(int l, int r) {
  if (l == t) return;
  if (l == r) {
    for (int i = 1; i < n; i++) f[i][l] = inf;
    for (int i = 1; i <= m; i++)
      if (a[i] != n) f[a[i]][l] = min(f[a[i]][l], g[i][l] + c[i]);
    return;
  }
  int mid = (l + r) >> 1;
  cdq(mid + 1, r);
  FFT::n = r - l - 1, FFT::m = r - mid - 1;
  for (int i = 1; i <= m; i++)
    if (a[i] != n) {
      for (int j = 0; j <= FFT::n; j++) FFT::a[j] = p[i][j + 1];
      for (int j = 0; j <= FFT::m; j++) FFT::b[j] = f[b[i]][r - j];
      FFT::solve();
      for (int j = l; j <= mid; j++) g[i][j] += FFT::a[r - j - 1].x;
    }
  cdq(l, mid);
}
int main() {
  rd(n), rd(m), rd(t), rd(x);
  for (int i = 1; i <= n; i++)
    for (int j = 1; j <= n; j++)
      if (i != j) d[i][j] = inf;
  for (int i = 1, x; i <= m; i++) {
    rd(a[i]), rd(b[i]), rd(x), c[i] = d[a[i]][b[i]] = x;
    for (int j = 1; j <= t; j++) rd(x), p[i][j] = x / 1e5;
  }
  for (int k = 1; k <= n; k++)
    for (int i = 1; i <= n; i++)
      for (int j = 1; j <= n; j++) d[i][j] = min(d[i][j], d[i][k] + d[k][j]);
  for (int i = 0; i < 2 * t; i++) f[n][i] = i <= t ? 0 : x;
  for (int i = 1; i < n; i++)
    for (int j = t; j < 2 * t; j++) f[i][j] = d[i][n] + x;
  cdq(0, 2 * t - 1);
  printf("%.10f\n", f[1][0]);
  return 0;
}