#include "bits/stdc++.h"
using namespace std;
#define FOR(i,j,k) for(int (i)=(j);(i)<(int)(k);++(i))
#define rep(i,j) FOR(i,0,j)
#define each(x,y) for(auto &(x):(y))
#define mp make_pair
#define all(x) (x).begin(),(x).end()
#define debug(x) cout<<#x<<": "<<(x)<<endl
#define smax(x,y) (x)=max((x),(y))
#define smin(x,y) (x)=min((x),(y))
#define MEM(x,y) memset((x),(y),sizeof (x))
#define sz(x) (int)(x).size()
typedef long long ll;
typedef pair<int, int> pii;
typedef vector<int> vi;
typedef vector<ll> vll;
using ull = unsigned long long;

struct RollingHash {
    static const unsigned long long C = 1000000007;
    int _n;
    vector<unsigned long long> pw, hs;

    RollingHash() {}
    RollingHash(const string &st)
        :_n((int)st.size()), pw(_n + 1), hs(_n + 1)
    {
        pw[0] = 1;
        rep(i, _n) {
            pw[i + 1] = pw[i] * C;
            hs[i + 1] = C*hs[i] + st[i];
        }
    }

    unsigned long long getHash(int l, int r) {
        unsigned long long res = hs[r] - hs[l] * pw[r - l];
        return res;
    }
};

string nstr(){
    static const int MAX_LEN = 50010;
    static char res_[MAX_LEN];
    scanf("%s",res_);
    return string(res_);
}

vector<ull> B[128];
vi C[128];

int main(){
    string S = nstr();
    RollingHash A(S);
    int M;
    cin >> M;
    rep(i, M){
        string T = nstr();
        B[T[0]].push_back(RollingHash(T).getHash(0, sz(T)));
        C[T[0]].push_back(sz(T));
    }
    int N = sz(S), ans = 0;
    rep(i, N){
        rep(j, sz(B[S[i]])){
            int r = i + C[S[i]][j];
            if(r <= N){
                if(A.getHash(i, r) == B[S[i]][j]){
                    ++ans;
                }
            }
        }
    }
    cout << ans << endl;
}