#include <iostream>
#include <fstream>
#include <cstring>
#define vmax 1000005
using namespace std;
ifstream f("pscpld.in");
ofstream g("pscpld.out");
 char s[vmax],x[vmax<<1];
 int sol[vmax<<1],len,m,st,dr,res=0;

int main()
{ int i,m1,m2,k=0;
    f>>s; len=(strlen(s)-1);
     for(i=0;i<=len;i++)
      {k+=2; x[k-1]=s[i]; x[k]='#'; }

   for(i=1;i<=k;i++)
    while(i-sol[i]-1>=1 && i+sol[i]+1<=k && x[i-sol[i]-1]==x[i+sol[i]+1])
     {sol[i]++; res++;}

     g<<res;
    return 0;
}