#include <stdio.h>
#include <string.h>
#define infile "pscpld.in"
#define outfile "pscpld.out"
#define nmax 10000

char s[nmax];
short int c[nmax][nmax];
int n, i, j;
long rez;

void readdata()
{
 FILE *fin=fopen(infile, "r");
 while (!feof(fin))
     fscanf(fin, "%c", &s[n++]);
 n--;
 fclose(fin);
}

void solve()
{
 for (i=1; i<=n; i++)
     {
      c[i][i]=1;
      rez++;
      if (s[i-1]==s[i])
	  {
	   c[i][i+1]=1;
	   rez++;
	  }
     }
 for (i=2; i<=n-1; i++)
     for (j=1; j<=n-i; j++)
	  if (s[j-1]==s[j+i-1] && c[j+1][j+i-1])
	      {
	       c[j][j+i]=1;
	       rez++;
	      }
}

void writedata()
{
 FILE *fout=fopen(outfile, "w");
 fprintf(fout, "%ld", rez);
 fclose(fout);
}

int main()
{
 readdata();
 solve();
 writedata();
 return 0;
}