#include <bits/stdc++.h>
#define syosu(x) fixed<<setprecision(x)
using namespace std;
typedef long long ll;
typedef unsigned long long ull;
typedef pair<int,int> P;
typedef pair<double,double> pdd;
typedef pair<ll,ll> pll;
typedef vector<int> vi;
typedef vector<vi> vvi;
typedef vector<long double> vd;
typedef vector<vd> vvd;
typedef vector<ll> vl;
typedef vector<vl> vvl;
typedef vector<string> vs;
typedef vector<P> vp;
typedef vector<vp> vvp;
typedef vector<pll> vpll;
typedef pair<int,P> pip;
typedef vector<pip> vip;
const int inf=1<<30;
const ll INF=1ll<<60;
const double pi=acos(-1);
const double eps=1e-11;
const ll mod=1e9+7;
const int dx[4]={-1,0,1,0},dy[4]={0,-1,0,1};

const int M=5005;
int n;
string s;
bool dp[M][M];

int main(){
	cin>>s;
	n=s.size();
	for(int i=0;i<n;i++){
		dp[i][i]=1;
		if(i&&s[i-1]==s[i]) dp[i-1][i]=1;
	}
	for(int k=2;k<n;k++) for(int i=0;i+k<n;i++) if(s[i]==s[i+k]&&dp[i+1][i+k-1]) dp[i][i+k]=1;
	ll res=0,t=0;
	for(int i=3;i<n;i++) if(dp[i][n-1]) t++;
	for(int i=1;i<n-2;i++){
		ll T=0;
		for(int j=0;j<i;j++) if(dp[0][j]&&dp[j+1][i]) T++;
		res+=T*t;
		if(dp[i+2][n-1]) t--;
	}
	cout<<res<<endl;
}