Problem: Due to the recent popularity of the Deep learning new countries are starting to look like Neural Networks. That is, the countries are being built deep with many layers, each layer possibly having many cities. They also have one entry, and one exit point.

There are exactly L layers, each having N cities. Let us look at the two adjacent layers L1 and L2. Each city from the layer L1 is connected to each city from the layer L2 with the traveling cost cij for <image>, and each pair of adjacent layers has the same cost in between their cities as any other pair (they just stacked the same layers, as usual). Also, the traveling costs to each city from the layer L2 are same for all cities in the L1, that is cij is the same for <image>, and fixed j.

Doctor G. needs to speed up his computations for this country so he asks you to find the number of paths he can take from entry to exit point such that his traveling cost is divisible by given number M.

Input

The first line of input contains N (1 ≤ N ≤ 106), L (2 ≤ L ≤ 105) and M (2 ≤ M ≤ 100), the number of cities in each layer, the number of layers and the number that travelling cost should be divisible by, respectively.

Second, third and fourth line contain N integers each denoting costs 0 ≤ cost ≤ M from entry point to the first layer, costs between adjacent layers as described above, and costs from the last layer to the exit point.

Output

Output a single integer, the number of paths Doctor G. can take which have total cost divisible by M, modulo 109 + 7.

Example

Input

2 3 13
4 6
2 1
3 4


Output

2

Note

<image>

This is a country with 3 layers, each layer having 2 cities. Paths <image>, and <image> are the only paths having total cost divisible by 13. Notice that input edges for layer cities have the same cost, and that they are same for all layers.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int maxn = 1000050, maxm = 120, mod = 1e9 + 7;
int n, l, m, c[maxn], st[maxn], en[maxn], ans;
int cc[maxm], ce[maxm];
int f0[maxm], trans[maxm][maxm], f1[maxm];
int tmp[maxm][maxm];
void Add(int &x, int k) { (x += k) >= mod ? x -= mod : x; }
void Mul(int *num1, int *num2, int *ret, int a, int b, int c) {
  int i, j, k;
  for (i = 0; i < a; i++)
    for (j = 0; j < c; j++) {
      tmp[i][j] = 0;
      for (k = 0; k < b; k++)
        Add(tmp[i][j], 1LL * num1[i * maxm + k] * num2[k * maxm + j] % mod);
    }
  for (i = 0; i < a; i++)
    for (j = 0; j < c; j++) ret[i * maxm + j] = tmp[i][j];
}
void Pow(int *num, int k, int a) {
  int i, j, ret[maxm * maxm];
  for (i = 0; i < a; i++)
    for (j = 0; j < a; j++) ret[i * maxm + j] = (i == j);
  for (; k; k >>= 1) {
    if (k & 1) Mul(ret, num, ret, a, a, a);
    Mul(num, num, num, a, a, a);
  }
  for (i = 0; i < a; i++)
    for (j = 0; j < a; j++) num[i * maxm + j] = ret[i * maxm + j];
}
int main() {
  int i, j, k;
  scanf("%d%d%d", &n, &l, &m);
  for (i = 0; i < n; i++) scanf("%d", &st[i]), f0[st[i] % m]++;
  for (i = 0; i < n; i++) scanf("%d", &c[i]), cc[c[i] % m]++;
  for (i = 0; i < n; i++) scanf("%d", &en[i]), ce[(en[i] + c[i]) % m]++;
  for (i = 0; i < m; i++)
    for (j = 0; j < m; j++) trans[i][j] = cc[(j - i + m) % m];
  Pow((int *)trans, l - 2, m);
  Mul(f0, (int *)trans, f1, 1, m, m);
  for (k = 0; k < m; k++) Add(ans, 1LL * f1[(m - k) % m] * ce[k] % mod);
  printf("%d\n", ans);
  return 0;
}