#include <bits/stdc++.h> 
using namespace std;
using ll =long long;
#define all(v) v.begin(),v.end()
 #define rep(i,a,b) for(int i=a;i<b;i++)
#define rrep(i,a,b) for(int i=a;i>=b;i--)

ll INF=2e18;
const int mod = 1000000007;
class mint {
public:
    long long x;
    mint(long long x=0) : x((x%mod+mod)%mod) {}
    mint operator-() const { 
      return mint(-x);
    }
    mint& operator+=(const mint& a) {
        if ((x += a.x) >= mod) x -= mod;
        return *this;
    }
    mint& operator-=(const mint& a) {
        if ((x += mod-a.x) >= mod) x -= mod;
        return *this;
    }
    mint& operator*=(const  mint& a) {
        (x *= a.x) %= mod;
        return *this;
    }
    mint operator+(const mint& a) const {
        mint res(*this);
        return res+=a;
    }
    mint operator-(const mint& a) const {
        mint res(*this);
        return res-=a;
    }
    mint operator*(const mint& a) const {
        mint res(*this);
        return res*=a;
    }

    mint pow(ll t) const {
        if (!t) return 1;
        mint a = pow(t>>1);
        a *= a;
        if (t&1) a *= *this;
        return a;
    }
    // for prime mod
    mint inv() const {
        return pow(mod-2);
    }
    mint& operator/=(const mint& a) {
        return (*this) *= a.inv();
    }
    mint operator/(const mint& a) const {
        mint res(*this);
        return res/=a;
    }

    friend ostream& operator<<(ostream& os, const mint& m){
        os << m.x;
        return os;
    }
};

const ll base=10007;


int main() {
    ios::sync_with_stdio(false);
  cin.tie(0);
  
  string S;cin>>S;
  ll M;cin>>M;

  vector<string> C(M);
  for(ll i=0;i<M;i++) cin>>C[i];

ll N=S.size();
vector<mint> hash(N);
mint k=1;

for(ll i=0;i<N;i++) {
  hash[i]=k*S[i];
  k*=base;
}

map<ll,ll> Q;
for(ll i=0;i<M;i++) {
  mint val=0;
  mint k=1;
  for(ll j=0;j<C[i].size();j++) {
val+=k*C[i][j];
k*=base;
  }
  Q[val.x]++;

}




vector<mint> sita(N+10);
sita[0]=1;

for(ll i=1;i<N+10;i++) {
  sita[i]=sita[i-1]/base;
}

ll ans=0;

for(ll i=0;i<N;i++) {
  mint h=0;
  for(ll j=0;j<10;j++) {
    if(i+j>=N) break;
    h+=hash[i+j];
    mint now=h*sita[i];
    if(Q.count(now.x)) ans+=Q[now.x];
  }
}

cout<<ans<<endl;
}