char s[5010];
a[5010];b[5010];
long long r;

f(a,b){
	return a>b||s[a]==s[b]&&f(a+1,b-1);
}

main(i,j,k,l){
	gets(s);
	l=strlen(s);
	for(i=0;i<l;++i){
		if(f(0,i)){
			for(j=i+1;j<l;++j){
				if(f(i+1,j)){
					++a[j];
				}
			}
		}
	}
	for(j=0;j<l;++j){
		if(f(j,l-1)){
			++b[j];
		}
	}
	for(j=l-2;j>=0;--j){
		b[j]+=b[j+1];
	}
	for(i=0;i<l;++i){
		r+=a[i]*b[i+2];
	}
	printf("%lld",r);
	return 0;
}