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;
long long fpm(long long b, long long e, long long m) {
  long long t = 1;
  for (; e; e >>= 1, b = b * b % m) e & 1 ? t = t * b % m : 0;
  return t;
}
template <class T>
inline bool chkmin(T &a, T b) {
  return a > b ? a = b, true : false;
}
template <class T>
inline bool chkmax(T &a, T b) {
  return a < b ? a = b, true : false;
}
template <class T>
inline T sqr(T x) {
  return x * x;
}
template <class edge>
struct Graph {
  vector<vector<edge> > adj;
  Graph(int n) {
    adj.clear();
    adj.resize(n + 5);
  }
  Graph() { adj.clear(); }
  void resize(int n) { adj.resize(n + 5); }
  void add(int s, edge e) { adj[s].push_back(e); }
  void del(int s, edge e) { adj[s].erase(find(iter(adj[s]), e)); }
  int deg(int v) { return adj[v].size(); }
  vector<edge> &operator[](int t) { return adj[t]; }
};
const int maxm = 11000;
string S;
unordered_map<int, int> f;
int query[maxm];
list<int> L;
list<int>::iterator loc[26];
int pos[26];
int main() {
  ios_base::sync_with_stdio(false);
  int n, m;
  string T;
  cin >> S >> m;
  n = (int)((S).size());
  for (int i = 1; i <= m; ++i) {
    cin >> T;
    int mask = 0;
    for (auto &x : T) mask |= 1 << (x - 'a');
    query[i] = mask, f[mask] = 0;
  }
  for (int i = 0; i < 26; ++i) pos[i] = n, L.push_front(i), loc[i] = L.begin();
  for (int z = n - 1; z >= 0; --z) {
    int x = S[z] - 'a';
    L.erase(loc[x]), L.push_front(x), pos[x] = z, loc[x] = L.begin();
    int mask = 0, prev = z ? 1 << (S[z - 1] - 'a') : 0;
    for (auto &c : L) {
      mask |= 1 << c;
      if (pos[c] == n || (mask & prev)) break;
      if (f.count(mask)) ++f[mask];
    }
  }
  for (int i = 1; i <= m; ++i) cout << f[query[i]] << endl;
  return 0;
}