#include <fstream>
#include <cstring>
using namespace std;
ifstream f("pscpld.in");
ofstream g("plcpld.out");
char v[1005];
long long dp[1005][1005],n,s,i,j,l;
struct coada
{
    int x,y
}c[1000];
int main()
{
f>>(v+1);
n=strlen(v+1);
for(i=1;i<=n;i++)
    dp[i][i]=1;
for(i=2;i<=n;i++)
    if(v[i-1]==v[i]) dp[i-1][i]=1;
for(l=3;l<=n;l++)
    for(i=1,j=l;j<=n;i++,j++)
        if(dp[i+1][j-1]==1&&v[i]==v[j]) dp[i][j]=1;
s=0;
for(i=1;i<=n;i++)
    for(j=1;j<=n;j++)
        s=s+dp[i][j];
g<<s;
return 0;}