#include <bits/stdc++.h>

using namespace std;

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

const int mod=466013;
long long p3[35],sol;
int n;
char v[10000205],s[35];

vector<long long> M[mod];
bool okmod[mod];

void inser(long long x)
{
  int poz=x%mod;
  bool ok=1;
  for(int i=0;i<M[poz].size();i++)
   if(M[poz][i]==x) ok=0;
  if(ok==1) M[poz].push_back(x);
  ok=1;

}


int query(long long x)
{
  int poz=x%mod;
  if(!okmod[poz]) sort(M[poz].begin(),M[poz].end()),okmod[poz]=1;
  if(binary_search(M[poz].begin(),M[poz].end(),x))
    return 1;
  return 0;
}


int main()
{
    p3[0]=1;
    for(int i=1;i<=21;i++)
     p3[i]=p3[i-1]*3;

    f>>v;
    long long nr=0;

    while(f>>s)
    {
     for(int i=0;s[i];i++)
      nr+=(s[i]-'a')*p3[i];

     inser(nr);
     //g<<nr<<"\n";
     nr=0;
     n=strlen(s);
    }

    //g<<"\n";
    //for(int i=0;i<M[48].size();i++) g<<M[48][i]<<" ";
    nr=0;

    for(int j=0;j<=n-1;j++)
     nr+=(v[j]-'a')*p3[j];

    int upl=strlen(v);

    for(int j=n;j<upl;j++)
    {
     sol+=query(nr);
     //g<<query(nr)<<" ";
     //g<<nr<<"\n";
     nr=nr/3;
     nr+=(v[j]-'a')*p3[n-1];
    }
    //g<<nr<<"\n";
    sol+=query(nr);


    g<<sol;
    return 0;
}