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

f(a,b){
	char*p=s+a;
	char*q=s+b;
	while(p<q&&*p==*q)++p,--q;
	return p>=q;
}

main(i,j,k,l,m){
	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];
		}
	}
	m=0;
	for(i=0;i<l;++i){
		m+=a[i];
		r+=m*b[i+2];
	}
	printf("%lld",r);
	return 0;
}