#pragma GCC optimize("O3")
#include <bits/stdc++.h>
#define ll long long
#define PII pair < int , int >
#define MOD 1000000007
 
using namespace std;

int n, rs;
string s, c[50100];
unordered_map < ll, int > M;
map < string, bool > N;

ll val, base = 1;

int main(){
    ios_base::sync_with_stdio(0);
    cin.tie(NULL);

    ifstream cin("abc2.in");
    ofstream cout("abc2.out");

    cin >> s;
    while (cin >> c[++n]);

    int len = c[1].size();
    for (int i = 0; i < len; i++, base *= 3);

    for (int i = 0; i < s.size(); i++) {
        val = val * 3 + (s[i] - 'a');
        
        if (i >= len) {
            val -= base * (s[i - len] - 'a');
        }

        ++M[val];
    }

    for (int i = 1; i <= n; i++) {
        if (N[c[i]]) continue;
        N[c[i]] = 1;

        ll value = 0;
        for (int j = 0; j < len; j++) {
            value = value * 3 + (c[i][j] - 'a');
        }

        rs += M[value];
    }

    cout << rs;

    return 0;
}