#include <fstream>
#include <cstring>
using namespace std;
ifstream f("pscpld.in");
ofstream g("pscpld.out");
char s[1000010];
long long R[1000010],P[1000010];
long long PP(char *x)
{
  int j=0,ct=1;
  int i=1,n=strlen(x);
  long long s1=0;
  while(i<=n-2)
  {
    while(x[i-j]==x[i+j+1])
      j++;
    R[ct]=j; ct++; s1+=j;
    int k=1;
    while (R[i-k] != R[i] - k && k <= j)
    {
      s1+=(min(R[i-k],R[i]-k)); R[ct]=(min(R[i-k],R[i]-k));
      ct++; k++;
    }
    j=max(j-k,0); i+=k;
  }
  return s1;
}

long long PG(char *x)
{
  int j=0,ct=1;
  unsigned int i=1,n=strlen(x);
  long long s2=0;
  while(i<=n-2)
  {
    while(x[i-j-1]==x[i+j+1])
      j++;
    P[ct]=j; ct++; s2+=j;
    int k=1;
    while(P[i-k]!=P[i]-k && k<=j)
    {
      s2+=(min(P[i-k],P[i]-k)); P[ct]=(min(P[i-k],P[i]-k));
      k++; ct++;
    }
    j=max(j-k,0); i+=k;
  }
  return s2+n-2;
}

int main()
{
 s[0]='$';
 f>>(s+1);
 s[strlen(s+1)+1]='#';
 long long M=PP(s);
 long long L=PG(s);
 g<<L+M<<'\n';
}