Problem: We'll call string s[a, b] = sasa + 1... sb (1 ≤ a ≤ b ≤ |s|) a substring of string s = s1s2... s|s|, where |s| is the length of string s.

The trace of a non-empty string t is a set of characters that the string consists of. For example, the trace of string "aab" equals {'a', 'b'}.

Let's consider an arbitrary string s and the set of its substrings with trace equal to C. We will denote the number of substrings from this set that are maximal by inclusion by r(C, s). Substring s[a, b] of length n = b - a + 1 belonging to some set is called maximal by inclusion, if there is no substring s[x, y] in this set with length greater than n, such that 1 ≤ x ≤ a ≤ b ≤ y ≤ |s|. Two substrings of string s are considered different even if they are equal but they are located at different positions of s.

Polycarpus got a challenging practical task on a stringology exam. He must do the following: given string s and non-empty sets of characters C1, C2, ..., Cm, find r(Ci, s) for each set Ci. Help Polycarpus to solve the problem as he really doesn't want to be expelled from the university and go to the army!

Input

The first line contains a non-empty string s (1 ≤ |s| ≤ 106).

The second line contains a single integer m (1 ≤ m ≤ 104). Next m lines contain descriptions of sets Ci. The i-th line contains string ci such that its trace equals Ci. It is guaranteed that all characters of each string ci are different.

Note that Ci are not necessarily different. All given strings consist of lowercase English letters.

Output

Print m integers — the i-th integer must equal r(Ci, s).

Examples

Input

aaaaa
2
a
a


Output

1
1


Input

abacaba
3
ac
ba
a


Output

1
2
4

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
struct pos {
  int x, id;
};
int n, m;
char s[1005000];
int rght[256];
int nnum;
pos upr[10050];
int unq[10050];
int ans[10050];
char cur_s[256];
int go[1005000][20];
int md[1005000];
const int cns = 65536;
int cur[cns], res[cns];
bool cmp(const pos &a, const pos &b) {
  return (a.x < b.x || a.x == b.x && a.id < b.id);
}
int proc_data() {
  scanf(" %s", s);
  n = strlen(s);
  scanf("%d", &m);
  for (int i = 1; i <= m; ++i) {
    scanf(" %s", cur_s);
    int cur_m = 0;
    for (int ii = 0; ii < strlen(cur_s); ++ii)
      cur_m |= (1 << (cur_s[ii] - 'a'));
    upr[i].x = cur_m;
    upr[i].id = i;
  }
  sort(upr + 1, upr + m + 1, cmp);
  nnum = 0;
  for (int i = 1; i <= m; ++i)
    if (i == m || upr[i].x != upr[i + 1].x) unq[++nnum] = upr[i].x;
  for (int i = 0; i < n; ++i) go[i + 1][0] = (1 << (s[i] - 'a'));
  for (int i = 1; i < 20; ++i)
    for (int j = 0; j < n - (1 << (i - 1)); ++j)
      go[j + 1][i] = go[j + 1][i - 1] | go[j + (1 << (i - 1)) + 1][i - 1];
  md[1] = 0;
  for (int i = 2; i <= n; ++i) md[i] = md[i / 2] + 1;
  return 0;
}
int find_seg(const int &ll, const int &rr) {
  int cp = md[rr - ll + 1];
  int res = go[ll][cp] | go[rr - (1 << cp) + 1][cp];
  return res;
}
int make_answers() {
  memset(cur, 0, sizeof(cur));
  for (int i = 1; i <= nnum; ++i) {
    int now_pos = unq[i] & (cns - 1);
    while (cur[now_pos]) now_pos = (now_pos + 1) & (cns - 1);
    cur[now_pos] = unq[i];
  }
  s[n] = 'z' + 1;
  for (int i = 'a'; i <= 'z'; ++i) rght[i] = n + 20;
  rght['z' + 1] = 0;
  for (int i = 1; i <= n + 1; ++i) {
    if (i != 1) {
      for (int c = 'a'; c <= 'z' + 1; ++c)
        if (rght[c] < i - 1) {
          int fnd = find_seg(rght[c] + 1, i - 1), tf = fnd & (cns - 1);
          if ((fnd | (1 << (s[i - 1] - 'a'))) != fnd) {
            while (cur[tf] != 0 && cur[tf] != fnd) tf = (tf + 1) & (cns - 1);
            if (cur[tf] == fnd) ++res[tf];
          }
        }
    }
    if (i != n + 1) rght[s[i - 1]] = i;
  }
  for (int i = 1; i <= m; ++i) {
    int pk = upr[i].x & (cns - 1);
    while (cur[pk] != 0 && cur[pk] != upr[i].x) pk = (pk + 1) & (cns - 1);
    ans[upr[i].id] = res[pk];
  }
  for (int i = 1; i <= m; ++i) printf("%d\n", ans[i]);
  return 0;
}
int main() {
  proc_data();
  make_answers();
  return 0;
}