Problem: During the study of the Martians Petya clearly understood that the Martians are absolutely lazy. They like to sleep and don't like to wake up. 

Imagine a Martian who has exactly n eyes located in a row and numbered from the left to the right from 1 to n. When a Martian sleeps, he puts a patch on each eye (so that the Martian morning doesn't wake him up). The inner side of each patch has an uppercase Latin letter. So, when a Martian wakes up and opens all his eyes he sees a string s consisting of uppercase Latin letters. The string's length is n. 

"Ding dong!" — the alarm goes off. A Martian has already woken up but he hasn't opened any of his eyes. He feels that today is going to be a hard day, so he wants to open his eyes and see something good. The Martian considers only m Martian words beautiful. Besides, it is hard for him to open all eyes at once so early in the morning. So he opens two non-overlapping segments of consecutive eyes. More formally, the Martian chooses four numbers a, b, c, d, (1 ≤ a ≤ b < c ≤ d ≤ n) and opens all eyes with numbers i such that a ≤ i ≤ b or c ≤ i ≤ d. After the Martian opens the eyes he needs, he reads all the visible characters from the left to the right and thus, he sees some word.

Let's consider all different words the Martian can see in the morning. Your task is to find out how many beautiful words are among them.

Input

The first line contains a non-empty string s consisting of uppercase Latin letters. The strings' length is n (2 ≤ n ≤ 105). The second line contains an integer m (1 ≤ m ≤ 100) — the number of beautiful words. Next m lines contain the beautiful words pi, consisting of uppercase Latin letters. Their length is from 1 to 1000. All beautiful strings are pairwise different.

Output

Print the single integer — the number of different beautiful strings the Martian can see this morning.

Examples

Input

ABCBABA
2
BAAB
ABBA


Output

1

Note

Let's consider the sample test. There the Martian can get only the second beautiful string if he opens segments of eyes a = 1, b = 2 and c = 4, d = 5 or of he opens segments of eyes a = 1, b = 2 and c = 6, d = 7. 

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int tam = 10000010;
struct node {
  int mini, izq, der;
  node() { izq = 1000000007, der = -1; }
};
node join(node b, node c) {
  node a;
  a.mini = min(b.mini, c.mini);
  a.izq = min(b.izq, c.izq);
  a.der = max(b.der, c.der);
  return a;
}
vector<int> sa, lcp;
int nn;
node t[1000000];
void init(int b, int e, int node) {
  if (b == e) {
    if (sa[e] < nn) t[node].izq = t[node].der = sa[b];
    t[node].mini = lcp[b];
    return;
  }
  int mid = (b + e) / 2, l = node * 2 + 1, r = l + 1;
  init(b, mid, l);
  init(mid + 1, e, r);
  t[node] = join(t[l], t[r]);
}
node query(int b, int e, int node, int i, int j) {
  if (b >= i && e <= j) return t[node];
  int mid = (b + e) / 2, l = node * 2 + 1, r = l + 1;
  if (mid < i) return query(mid + 1, e, r, i, j);
  if (mid >= j) return query(b, mid, l, i, j);
  return join(query(b, mid, l, i, j), query(mid + 1, e, r, i, j));
}
string asd;
bool cmp(int a, int b) { return asd[a] < asd[b]; }
void suffixa(string &second) {
  int n = second.size(), ax, cc;
  vector<int> sa1(n), col(n), col1(n), head(n);
  sa.resize(n);
  asd = second;
  for (int i = 0; i < n; i++) sa[i] = i;
  stable_sort(sa.begin(), sa.end(), cmp);
  col[sa[0]] = head[0] = cc = 0;
  for (int i = 1; i < n; i++) {
    if (second[sa[i]] != second[sa[i - 1]]) cc++, head[cc] = i;
    col[sa[i]] = cc;
  }
  for (int k = 1; k < n; k *= 2) {
    for (int i = 0; i < n; i++) {
      ax = (sa[i] - k + n) % n;
      sa1[head[col[ax]]++] = ax;
    }
    sa = sa1;
    col1[sa[0]] = head[0] = cc = 0;
    for (int i = 1; i < n; i++) {
      if (col[sa[i]] != col[sa[i - 1]] ||
          col[(sa[i] + k) % n] != col[(sa[i - 1] + k) % n])
        cc++, head[cc] = i;
      col1[sa[i]] = cc;
    }
    col = col1;
  }
}
void build_lcp(string &second) {
  int n = second.size(), z = 0, k;
  vector<int> sa1(n);
  lcp.assign(n, 0);
  for (int i = 0; i < n; i++) sa1[sa[i]] = i;
  for (int i = 0; i < n; i++) {
    k = sa1[i];
    while (k < n - 1 && second[i + z] == second[sa[k + 1] + z]) z++;
    lcp[k] = z;
    z = max(z - 1, 0);
  }
}
int table[22][300000];
void sparce() {
  for (int i = 0; i < lcp.size(); i++) table[0][i] = lcp[i];
  int n = lcp.size(), ac = n;
  for (int k = 1, i = 1; k < n; k *= 2, i++) {
    for (int j = 0; j < ac - k; j++)
      table[i][j] = min(table[i - 1][j], table[i - 1][j + k]);
    ac -= k;
  }
}
int querys(int b, int e) {
  int lev = (int)(log2(e - b + 1) + 1e-9);
  return min(table[lev][b], table[lev][e - (1 << lev) + 1]);
}
int main() {
  ios::sync_with_stdio(false);
  cin.tie(0);
  string second;
  cin >> second;
  nn = second.size();
  int ta;
  cin >> ta;
  string ar[ta];
  for (int i = 0; i < ta; i++) {
    cin >> ar[i];
    second += '#' + ar[i];
  }
  second += '$';
  suffixa(second);
  build_lcp(second);
  int tata = second.size();
  init(0, tata - 1, 0);
  sparce();
  int res = 0;
  vector<int> sa1(tata);
  for (int i = 0; i < tata; i++) sa1[sa[i]] = i;
  int lef = nn + 1;
  int lo, hi, mid, rer, rel, fro, inl, inr;
  for (int i = 0; i < ta; i++) {
    for (int j = 1; j < ar[i].size(); j++) {
      if (ar[i].size() > nn) break;
      lo = sa1[lef], hi = tata - 1, rer = sa1[lef];
      fro = lo;
      while (lo <= hi) {
        mid = (lo + hi) / 2;
        if (querys(fro, mid) >= j)
          rer = mid, lo = mid + 1;
        else
          hi = mid - 1;
      }
      lo = 0, hi = sa1[lef] - 1, rel = sa1[lef];
      fro = hi;
      while (lo <= hi) {
        mid = (lo + hi) / 2;
        if (querys(mid, fro) >= j)
          rel = mid, hi = mid - 1;
        else
          lo = mid + 1;
      }
      int rel1 = rel, rer1 = rer;
      inl = query(0, tata - 1, 0, rel, rer + (lcp[rer] >= j ? 1 : 0)).izq;
      lo = sa1[lef + j], hi = tata - 1, rer = sa1[lef + j];
      fro = lo;
      while (lo <= hi) {
        mid = (lo + hi) / 2;
        if (querys(fro, mid) >= ar[i].size() - j)
          rer = mid, lo = mid + 1;
        else
          hi = mid - 1;
      }
      lo = 0, hi = sa1[lef + j] - 1, rel = sa1[lef + j];
      fro = hi;
      while (lo <= hi) {
        mid = (lo + hi) / 2;
        if (querys(mid, fro) >= ar[i].size() - j)
          rel = mid, hi = mid - 1;
        else
          lo = mid + 1;
      }
      inr = query(0, tata - 1, 0, rel,
                  rer + (lcp[rer] >= ar[i].size() - j ? 1 : 0))
                .der;
      if (inl + j <= inr) {
        res++;
        break;
      }
    }
    lef += ar[i].size() + 1;
  }
  cout << res << '\n';
  return 0;
}