Problem:
Score : 1100 points

Problem Statement

There are N strings of lowercase alphabet only. The i-th string is S_i. Every string is unique.

Provide answers for the Q queries below. The i-th query has the following format:

Query: An integer k_i and a string p_{i,1}p_{i,2}...p_{i,26} that results from permuting {a,b,...,z} are given. Output the sequence of the string S_{k_i} among the N strings in lexicographical order when the literal sequence is p_{i,1}<p_{i,2}<...<p_{i,26}.

Constraints

1 ≦ N,Q ≦ 100000

1 ≦ |S_i| (1 ≦ i ≦ N)

S_i (1 ≦ i ≦ N) is a string of lowercase alphabet.

The sum of |S_i| is no more than 400000.

Every S_i is unique.

1 ≦ k_i ≦ N (1 ≦ i ≦ Q)

For all 1 ≦ i ≦ Q, p_{i,1}p_{i,2}...p_{i,26} is a permutation of abcd...z.

Input

Inputs are provided from standard inputs in the following form.

N
S_1
:
S_N
Q
k_1 p_{1,1}p_{1,2}...p_{1,26}
:
k_Q p_{Q,1}p_{Q,2}...p_{Q,26}

Output

Output Q lines.

On line i, for the i-th query, output an integer indicating the sequence of the string S_{k_i} among the N strings in lexicographical order.

Sample Input 1

5
aa
abbaa
abbba
aaab
aaaaaba
5
1 abcdefghijklmnopqrstuvwxyz
2 bacdefghijklmnopqrstuvwxyz
3 abcdefghijklmnopqrstuvwxyz
4 bacdefghijklmnopqrstuvwxyz
5 abcdefghijklmnopqrstuvwxyz

Sample Output 1

1
2
5
4
2

When the literal sequence is a < b, sorting the input strings in lexicographical order yields aa, aaaaaba, aaab, abbaa, abbba. The answers to queries 1, 3, and 5 are thus 1, 5, and 2, respectively.

When the literal sequence is b < a, sorting the input strings in lexicographical order yields abbba, abbaa, aa, aaab, aaaaaba. The answers to queries 2 and 4 are thus 2 and 4, respectively.

Sample Input 2

8
abrakatabra
abadaba
abracadabra
atcoder
grand
contest
ababa
a
6
3 abcdefghijklmnopqrstuvwxyz
6 qwertyuiopasdfghjklzxcvbnm
8 poiuytrewqlkjhgfdsamnbvcxz
2 qazwsxedcrfvtgbyhnujmikolp
1 plokmijnuhbygvtfcrdxeszwaq
4 mnbvcxzasdfghjklpoiuytrewq

Sample Output 2

4
8
2
3
4
7

Solution in Rust (1.42.0) (judge verdict: Time Limit Exceeded)

fn main() {
    let (r, w) = (std::io::stdin(), std::io::stdout());
    let mut sc = IO::new(r.lock(), w.lock());

    let n: usize = sc.read();
    let mut trie = Trie {
        nodes: vec![Node::new()],
    };
    let mut t = vec![];
    for _ in 0..n {
        let s = sc
            .read::<String>()
            .chars()
            .map(|c| c as usize - 'a' as usize)
            .collect();
        trie.add(0, &s, 0);
        t.push(s);
    }

    let q: usize = sc.read();
    for _ in 0..q {
        let k = sc.read::<usize>() - 1;
        let mut order = [0; 26];
        let s = sc
            .read::<String>()
            .chars()
            .map(|c| c as usize - 'a' as usize)
            .collect::<Vec<_>>();
        for i in 0..26 {
            order[s[i]] = i;
        }
        let ans = trie.count(&order, 0, &t[k], 0);
        sc.write(ans + 1);
        sc.write("\n");
    }
}

struct Trie {
    nodes: Vec<Node>,
}

impl Trie {
    fn add(&mut self, node: usize, s: &Vec<usize>, pos: usize) {
        self.nodes[node].through += 1;

        if s.len() == pos {
            self.nodes[node].end += 1;
            return;
        }
        let next = self.nodes[node].children[s[pos]];
        if next == 0 {
            let next = self.nodes.len();
            self.nodes[node].children[s[pos]] = next;
            self.nodes.push(Node::new());
            self.add(next, s, pos + 1);
        } else {
            self.add(next, s, pos + 1);
        }
    }

    fn count(&self, order: &[usize], node: usize, s: &[usize], pos: usize) -> usize {
        let mut ans = 0;
        if s.len() == pos {
            return 0;
        } else {
            ans += self.nodes[node].end;
        }
        let next_c = s[pos];

        for i in 0..26 {
            let node_i = self.nodes[node].children[i];
            if node_i == 0 {
                continue;
            }
            if order[i] < order[next_c] {
                ans += self.nodes[node_i].through;
            }
        }

        ans + self.count(order, self.nodes[node].children[s[pos]], s, pos + 1)
    }
}
struct Node {
    children: [usize; 26],
    through: usize,
    end: usize,
}

impl Node {
    fn new() -> Self {
        Self {
            children: [0; 26],
            through: 0,
            end: 0,
        }
    }
}

pub struct IO<R, W: std::io::Write>(R, std::io::BufWriter<W>);

impl<R: std::io::Read, W: std::io::Write> IO<R, W> {
    pub fn new(r: R, w: W) -> Self {
        Self(r, std::io::BufWriter::new(w))
    }
    pub fn write<S: ToString>(&mut self, s: S) {
        use std::io::Write;
        self.1.write(s.to_string().as_bytes()).unwrap();
    }
    pub fn read<T: std::str::FromStr>(&mut self) -> T {
        use std::io::Read;
        let buf = self
            .0
            .by_ref()
            .bytes()
            .map(|b| b.unwrap())
            .skip_while(|&b| b == b' ' || b == b'\n' || b == b'\r' || b == b'\t')
            .take_while(|&b| b != b' ' && b != b'\n' && b != b'\r' && b != b'\t')
            .collect::<Vec<_>>();
        unsafe { std::str::from_utf8_unchecked(&buf) }
            .parse()
            .ok()
            .expect("Parse error.")
    }
    pub fn vec<T: std::str::FromStr>(&mut self, n: usize) -> Vec<T> {
        (0..n).map(|_| self.read()).collect()
    }
    pub fn chars(&mut self) -> Vec<char> {
        self.read::<String>().chars().collect()
    }
}