#include <iostream>
#include <fstream>
#include <queue>
#include <map>

using namespace std;

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

const int N = 50005;
const int M = 666019;

string initial;

unsigned int val[N],urm[N],lst[M],nr;

bool apartine(unsigned int x)
{
    unsigned int c = x % M;
    for (unsigned int p = lst[c]; p != 0; p = urm[p])
    {
        if (val[p] == x)
        {
            return true;
        }
    }
    return false;
}

void adauga(unsigned int x)
{
    unsigned int c = x % M;
    if (apartine(x))
    {
        return;
    }
    val[++nr] = x;
    urm[nr] = lst[c];
    lst[c] = nr;
}

int main()
{
    in >> initial;
    string moment;
    int cnt = 0;
    int l;
    while (in >> moment)
    {
        l = moment.length();
        unsigned int has = 0;
        for (int i=0; i<moment.length(); i++)
        {
            has = (has*3ll + (unsigned int)(moment[i] - 'a'));
        }
        adauga(has);
    }
    unsigned int has = 0;
    unsigned int p =1;
    for (int i=0; i<l; i++)
    {
        has = (has*3ll + (unsigned int)(initial[i] - 'a'));
        if (i != 0)
            p = (p*3ll);
    }
    if (apartine(has)) cnt++;
    for (int i=l; i<initial.length(); i++)
    {
        has = ((has - (unsigned int)((initial[i-l] - 'a')*p))*3ll + (unsigned int)(initial[i] - 'a'));
        if (apartine(has)) cnt++;
    }
    out << cnt;
    return 0;
}