#include <bits/stdc++.h>
using namespace std;

#define _p(...) (void)printf(__VA_ARGS__)
#define forr(x,arr) for(auto&& x:arr)
#define _overload3(_1,_2,_3,name,...) name
#define _rep2(i,n) _rep3(i,0,n)
#define _rep3(i,a,b) for(int i=int(a);i<int(b);++i)
#define rep(...) _overload3(__VA_ARGS__,_rep3,_rep2,)(__VA_ARGS__)
#define _rrep2(i,n) _rrep3(i,0,n)
#define _rrep3(i,a,b) for(int i=int(b)-1;i>=int(a);i--)
#define rrep(...) _overload3(__VA_ARGS__,_rrep3,_rrep2,)(__VA_ARGS__)
#define ALL(x) (x).begin(), (x).end()
#define BIT(n) (1LL<<(n))
#define SZ(x) ((int)(x).size())
#define fst first
#define snd second
using ll=long long;using pii=pair<int,int>;using vb=vector<bool>;
using vi=vector<int>;using vvi=vector<vi>;using vvvi=vector<vvi>;
using vl=vector<ll>;using vvl=vector<vl>;using vvvl=vector<vvl>;
using vd=vector<double>;using vvd=vector<vd>;using vvvd=vector<vvd>;
using vpii=vector<pii>;using vvpii=vector<vpii>;using vvvpii=vector<vvpii>;

void Main() {
  string sentence;
  int M;
  cin >> sentence >> M;
  int N = SZ(sentence);

  const int EMPTY = -1;
  vvi trie;
  vi vals;

  auto assign_new_state = [&]() {
    trie.emplace_back(26, EMPTY);
    vals.push_back(0);
  };
  assign_new_state();

  // M 個の単語 P_i を追加。単語ごとに最大値を覚える
  rep(i, M) {
    string s;
    cin >> s;

    int now = 0;
    forr(ch, s) {
      char c = ch - 'A';
      if (trie[now][c] == -1) {
        trie[now][c] = SZ(trie);
        assign_new_state();
      }
      now = trie[now][c];
    }
    vals[now]++;
  }

  int ans = 0;

  rep(i, N) {
    int now = 0;
    for (int j = 0; i + j < N; j++) {
      int c = sentence[i + j] - 'A';
      now = trie[now][c];
      if (now == EMPTY) break;
      ans += vals[now];
    }
  }

  cout << ans << endl;
}
int main() { cin.tie(0); ios::sync_with_stdio(false); Main(); return 0; }