use std::io::BufRead;

fn run() {
    let stdin = std::io::stdin();
    let mut stdin = stdin.lock();
    let mut s = String::new();
    stdin.read_line(&mut s).unwrap();
    let s = s.trim();
    let mut map = std::collections::BTreeMap::new();
    for i in 0..s.len() {
        for j in 1..(std::cmp::min(11, s.len() + 1 - i)) {
            let s = &s[i..(i + j)];
            let po = map.entry(s).or_insert(0);
            *po += 1;
        }
    }
    let mut ans = 0;
    let mut s = String::new();
    stdin.read_line(&mut s).unwrap();
    let m: usize = s.split_whitespace().next().unwrap().parse().ok().unwrap();
    for _ in 0..m {
        s.clear();
        stdin.read_line(&mut s).unwrap();
        let s = s.trim();
        match map.get(s) {
            Some(&c) => ans += c,
            None => (),
        }
    }
    println!("{}", ans);
}

fn main() {
    run();
}