#include <iostream>
#include <stdio.h>
#include <math.h>
#include <string.h>
#include <time.h>
#include <stdlib.h>
#include <string>
#include <bitset>
#include <vector>
#include <set>
#include <map>
#include <queue>
#include <algorithm>
#include <sstream>
#include <stack>
#include <iomanip>
using namespace std;
#define pb push_back
#define mp make_pair
typedef pair<int,int> pii;
typedef long long ll;
typedef double ld;
typedef vector<int> vi;
#define fi first
#define se second
#define fe first
#define FO(x) {freopen(#x".in","r",stdin);freopen(#x".out","w",stdout);}
#define Edg int M=0,fst[SZ],vb[SZ],nxt[SZ];void ad_de(int a,int b){++M;nxt[M]=fst[a];fst[a]=M;vb[M]=b;}void adde(int a,int b){ad_de(a,b);ad_de(b,a);}
#define Edgc int M=0,fst[SZ],vb[SZ],nxt[SZ],vc[SZ];void ad_de(int a,int b,int c){++M;nxt[M]=fst[a];fst[a]=M;vb[M]=b;vc[M]=c;}void adde(int a,int b,int c){ad_de(a,b,c);ad_de(b,a,c);}
#define es(x,e) (int e=fst[x];e;e=nxt[e])
#define esb(x,e,b) (int e=fst[x],b=vb[e];e;e=nxt[e],b=vb[e])
#define SZ 66666
int n;
const int MOD=1000000007;
ll cm[SZ],cmn[SZ];
ll qp(ll a,ll b)
{
ll ans=1;
while(b)
{
if(b&1) ans=ans*a%MOD;
a=a*a%MOD; b>>=1;
}
return ans;
}
struct HashKMP
{
char s[SZ+1]; int n;
ll hash[SZ+1];
void pre()
{
n=strlen(s);
for(int i=n-1;i>=0;i--) hash[i]=(hash[i+1]+cm[n-1-i]*(s[i]-'a'+1)%MOD)%MOD;
}
inline ll ghash(int l,int r)
{
return ((hash[l]-hash[r+1])*cmn[n-1-r]%MOD+MOD)%MOD;
}
}a,b;
inline ll hsh(int l,int r)
{return a.ghash(n-r,n-l);}
inline ll hshf(int l,int r)
{return b.ghash(l-1,r-1);}
char s[SZ];
int wo[1005][1005];
int main()
{
cm[0]=cmn[0]=1; ll gg=qp(129,MOD-2);
for(int i=1;i<SZ;i++) cm[i]=cm[i-1]*129%MOD;
for(int i=1;i<SZ;i++) cmn[i]=cmn[i-1]*gg%MOD;
scanf("%s",s+1); n=strlen(s+1);
reverse(s+1,s+1+n);
strcpy(a.s,s+1);
reverse(s+1,s+1+n);
strcpy(b.s,s+1);
a.pre(); b.pre();
ll ans=0;
for(int i=1;i<=n;++i)
for(int j=1;i+j<=n;++j)
{
if(s[i]!=s[i+j]) wo[i][i+j]=0;
else wo[i][i+j]=wo[i-1][i+j+1]+1;
ans+=wo[i][i+j];
}
for(int i=1;i<=n;++i)
{
int g=-1;
for(int j=i+1;j<=n;++j)
{
g+=hsh(i+1,j-1)==hshf(i+1,j-1);
ans+=g*wo[i][j];
}
}
for(int i=n;i>=1;--i)
{
int g=-1;
for(int j=i-1;j>=1;--j)
{
g+=hsh(j+1,i-1)==hshf(j+1,i-1);
ans+=g*wo[j][i];
}
}
cout<<ans<<"\n";
}
I2luY2x1ZGUgPGlvc3RyZWFtPgojaW5jbHVkZSA8c3RkaW8uaD4KI2luY2x1ZGUgPG1hdGguaD4KI2luY2x1ZGUgPHN0cmluZy5oPgojaW5jbHVkZSA8dGltZS5oPgojaW5jbHVkZSA8c3RkbGliLmg+CiNpbmNsdWRlIDxzdHJpbmc+CiNpbmNsdWRlIDxiaXRzZXQ+CiNpbmNsdWRlIDx2ZWN0b3I+CiNpbmNsdWRlIDxzZXQ+CiNpbmNsdWRlIDxtYXA+CiNpbmNsdWRlIDxxdWV1ZT4KI2luY2x1ZGUgPGFsZ29yaXRobT4KI2luY2x1ZGUgPHNzdHJlYW0+CiNpbmNsdWRlIDxzdGFjaz4KI2luY2x1ZGUgPGlvbWFuaXA+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgcGIgcHVzaF9iYWNrCiNkZWZpbmUgbXAgbWFrZV9wYWlyCnR5cGVkZWYgcGFpcjxpbnQsaW50PiBwaWk7CnR5cGVkZWYgbG9uZyBsb25nIGxsOwp0eXBlZGVmIGRvdWJsZSBsZDsKdHlwZWRlZiB2ZWN0b3I8aW50PiB2aTsKI2RlZmluZSBmaSBmaXJzdAojZGVmaW5lIHNlIHNlY29uZAojZGVmaW5lIGZlIGZpcnN0CiNkZWZpbmUgRk8oeCkge2ZyZW9wZW4oI3giLmluIiwiciIsc3RkaW4pO2ZyZW9wZW4oI3giLm91dCIsInciLHN0ZG91dCk7fQojZGVmaW5lIEVkZyBpbnQgTT0wLGZzdFtTWl0sdmJbU1pdLG54dFtTWl07dm9pZCBhZF9kZShpbnQgYSxpbnQgYil7KytNO254dFtNXT1mc3RbYV07ZnN0W2FdPU07dmJbTV09Yjt9dm9pZCBhZGRlKGludCBhLGludCBiKXthZF9kZShhLGIpO2FkX2RlKGIsYSk7fQojZGVmaW5lIEVkZ2MgaW50IE09MCxmc3RbU1pdLHZiW1NaXSxueHRbU1pdLHZjW1NaXTt2b2lkIGFkX2RlKGludCBhLGludCBiLGludCBjKXsrK007bnh0W01dPWZzdFthXTtmc3RbYV09TTt2YltNXT1iO3ZjW01dPWM7fXZvaWQgYWRkZShpbnQgYSxpbnQgYixpbnQgYyl7YWRfZGUoYSxiLGMpO2FkX2RlKGIsYSxjKTt9CiNkZWZpbmUgZXMoeCxlKSAoaW50IGU9ZnN0W3hdO2U7ZT1ueHRbZV0pCiNkZWZpbmUgZXNiKHgsZSxiKSAoaW50IGU9ZnN0W3hdLGI9dmJbZV07ZTtlPW54dFtlXSxiPXZiW2VdKQojZGVmaW5lIFNaIDY2NjY2CmludCBuOwpjb25zdCBpbnQgTU9EPTEwMDAwMDAwMDc7CmxsIGNtW1NaXSxjbW5bU1pdOwpsbCBxcChsbCBhLGxsIGIpCnsKICAgIGxsIGFucz0xOwogICAgd2hpbGUoYikKICAgIHsKICAgICAgICBpZihiJjEpIGFucz1hbnMqYSVNT0Q7CiAgICAgICAgYT1hKmElTU9EOyBiPj49MTsKICAgIH0KICAgIHJldHVybiBhbnM7Cn0Kc3RydWN0IEhhc2hLTVAKewpjaGFyIHNbU1orMV07IGludCBuOwpsbCBoYXNoW1NaKzFdOwp2b2lkIHByZSgpCnsKICAgIG49c3RybGVuKHMpOwogICAgZm9yKGludCBpPW4tMTtpPj0wO2ktLSkgaGFzaFtpXT0oaGFzaFtpKzFdK2NtW24tMS1pXSooc1tpXS0nYScrMSklTU9EKSVNT0Q7Cn0KaW5saW5lIGxsIGdoYXNoKGludCBsLGludCByKQp7CiAgICByZXR1cm4gKChoYXNoW2xdLWhhc2hbcisxXSkqY21uW24tMS1yXSVNT0QrTU9EKSVNT0Q7Cn0KfWEsYjsKaW5saW5lIGxsIGhzaChpbnQgbCxpbnQgcikKe3JldHVybiBhLmdoYXNoKG4tcixuLWwpO30KaW5saW5lIGxsIGhzaGYoaW50IGwsaW50IHIpCntyZXR1cm4gYi5naGFzaChsLTEsci0xKTt9CmNoYXIgc1tTWl07CmludCB3b1sxMDA1XVsxMDA1XTsKaW50IG1haW4oKQp7CiAgICBjbVswXT1jbW5bMF09MTsgbGwgZ2c9cXAoMTI5LE1PRC0yKTsKICAgIGZvcihpbnQgaT0xO2k8U1o7aSsrKSBjbVtpXT1jbVtpLTFdKjEyOSVNT0Q7CiAgICBmb3IoaW50IGk9MTtpPFNaO2krKykgY21uW2ldPWNtbltpLTFdKmdnJU1PRDsKCXNjYW5mKCIlcyIscysxKTsgbj1zdHJsZW4ocysxKTsKCXJldmVyc2UocysxLHMrMStuKTsKCXN0cmNweShhLnMscysxKTsKCXJldmVyc2UocysxLHMrMStuKTsKCXN0cmNweShiLnMscysxKTsKCWEucHJlKCk7IGIucHJlKCk7CglsbCBhbnM9MDsKCWZvcihpbnQgaT0xO2k8PW47KytpKQoJCWZvcihpbnQgaj0xO2krajw9bjsrK2opCgkJewoJCQlpZihzW2ldIT1zW2kral0pIHdvW2ldW2kral09MDsKCQkJZWxzZSB3b1tpXVtpK2pdPXdvW2ktMV1baStqKzFdKzE7CgkJCWFucys9d29baV1baStqXTsKCQl9Cglmb3IoaW50IGk9MTtpPD1uOysraSkKCXsKCQlpbnQgZz0tMTsKCQlmb3IoaW50IGo9aSsxO2o8PW47KytqKQoJCXsKCQkJZys9aHNoKGkrMSxqLTEpPT1oc2hmKGkrMSxqLTEpOwoJCQlhbnMrPWcqd29baV1bal07CgkJfQoJfQoJZm9yKGludCBpPW47aT49MTstLWkpCgl7CgkJaW50IGc9LTE7CgkJZm9yKGludCBqPWktMTtqPj0xOy0taikKCQl7CgkJCWcrPWhzaChqKzEsaS0xKT09aHNoZihqKzEsaS0xKTsKCQkJYW5zKz1nKndvW2pdW2ldOwoJCX0KCX0KCWNvdXQ8PGFuczw8IlxuIjsKfQ==