#include <bits/stdc++.h>
using namespace std;
#define REP(i,n) for(int i=0;i<(n);i++)
#define FOR(i,a,b) for(int i=(a);i<(b);i++)
#define FORR(i,a,b) for(int i=(b)-1;i>=(a);i--)
typedef long long ll;
typedef pair<int,int> pii;
typedef vector<int> vi;
const ll MOD = 1000000009;
#define ADD(a,b) a=((a)+(b))%MOD
#define SUB(a,b) a=((a)-(b)%MOD+MOD)%MOD

int n;
char s[12525];
ll a[12525];
ll b[12525];
ll base=10007;
ll bpow[12525];
bool pal(int l,int r){
ll as = a[r]; SUB(as,a[l]*bpow[r-l]);
ll bs = b[l]; SUB(bs,b[r]*bpow[r-l]);
return as==bs;
}
int main(){
scanf("%s",s);n=strlen(s);
REP(i,n)a[i+1]=(a[i]*base+s[i])%MOD;
FORR(i,0,n)b[i]=(b[i+1]*base+s[i])%MOD;
bpow[0]=1;
REP(i,n)bpow[i+1]=bpow[i]*base%MOD;
ll ans=0;
FOR(i,2,n-2+1){

ll x=0,y=0;
FOR(j,1,i)x+=pal(0,j)*pal(j,i);
FOR(j,i+1,n)y+=pal(j,n);
ans += x*y;


}
cout<<ans<<endl;
return 0;
}