using System;
using System.Collections.Generic;
using System.Linq;
using static System.Console;
using static System.Math;

class Program
{
    static void Main()
    {
        var s = ReadLine().Select(x => x - 'A' + 1).ToArray();
        var m = int.Parse(ReadLine());
        var rh = new RollingHash(s);
        var d = new Map<ulong, int>(s.Length * 10);
        for (int i = 1; i < 11; i++)
        {
            for (int j = 0; j <= s.Length - i; j++)
            {
                d[rh.Hash(j, j + i)]++;
            }
        }
        var a = 0L;
        for (int i = 0; i < m; i++)
        {
            var c = ReadLine().Select(x => x - 'A' + 1).ToArray();
            var h = RollingHash.ComputeHash(c);
            a += d[h];
        }
        WriteLine(a);
    }
}

public class Map<TKey, TValue> : Dictionary<TKey, TValue>
{
    public Map() { }
    public Map(int capacity) : base(capacity) { }
    public Map(IEqualityComparer<TKey> comparer) : base(comparer) { }
    public Map(int capacity, IEqualityComparer<TKey> comparer) : base(capacity, comparer) { }
    public Map(IDictionary<TKey, TValue> dictionary) : base(dictionary) { }
    public Map(IDictionary<TKey, TValue> dictionary, IEqualityComparer<TKey> comparer) : base(dictionary, comparer) { }
    public Map(IEnumerable<KeyValuePair<TKey, TValue>> collection) : base(collection) { }
    public Map(IEnumerable<KeyValuePair<TKey, TValue>> collection, IEqualityComparer<TKey> comparer) : base(collection, comparer) { }

    public new TValue this[TKey key]
    {
        get => TryGetValue(key, out var value) ? value : default;
        set => base[key] = value;
    }
}

public class RollingHash
{
    ulong[] hash;
    ulong[] pow;
    const ulong @base = 27;
    const ulong mod = (1UL << 61) - 1;
    const ulong MASK30 = (1UL << 30) - 1;
    const ulong MASK31 = (1UL << 31) - 1;
    const ulong MOD = (1UL << 61) - 1;

    static ulong Mul(ulong a, ulong b)
    {
        var au = a >> 31;
        var ad = a & MASK31;
        var bu = b >> 31;
        var bd = b & MASK31;
        var mid = ad * bu + au * bd;
        var midu = mid >> 30;
        var midd = (mid & MASK30);
        return CalcMod(au * bu * 2 + midu + (midd << 31) + ad * bd);
    }

    static ulong CalcMod(ulong val)
    {
        val = (val & MOD) + (val >> 61);
        if (val > MOD) val -= MOD;
        return val;
    }
    public RollingHash(string s)
    {
        hash = new ulong[s.Length + 1];
        pow = new ulong[s.Length + 1];
        pow[0] = 1;
        for (int i = 1; i < pow.Length; i++)
        {
            pow[i] = Mul(pow[i - 1], @base);
            hash[i] = (Mul(hash[i - 1], @base % mod) + s[i - 1]) % mod;
        }
    }

    public RollingHash(int[] s)
    {
        hash = new ulong[s.Length + 1];
        pow = new ulong[s.Length + 1];
        pow[0] = 1;
        for (int i = 1; i < pow.Length; i++)
        {
            pow[i] = Mul(pow[i - 1], @base);
            hash[i] = (Mul(hash[i - 1], @base) + (ulong)s[i - 1]) % mod;
        }
    }

    public static ulong ComputeHash(string s)
    {
        var h = 0UL;
        for (int i = 0; i < s.Length; i++)
        {
            h = (h + s[i]) % mod;
            if (i != s.Length - 1) h = Mul(h, @base);
        }
        return h;
    }


    public static ulong ComputeHash(int[] s)
    {
        var h = 0UL;
        for (int i = 0; i < s.Length; i++)
        {
            h = (h + (ulong)s[i]) % mod;
            if (i != s.Length - 1) h = Mul(h, @base);
        }
        return h;
    }

    public ulong Hash(int l, int r)
    {
        var h = 0UL;
        h = (hash[r] - Mul(hash[l], pow[r - l])) % mod;
        return h;
    }
}