#include<stdio.h>
#include<string.h>

int check(char *str,int s,int e){
	int w,i;
	w=(e-s+1)/2;
	for(i=0;i<w;i++){
		if(str[s+i]!=str[e-i]) return 0;
	}
	return 1;
}

long num[4999];

int main(){
	char str[5001];
	int n,i,j,k;
	long c=0;
	scanf("%s",str);
	n=strlen(str);
	/*for(i=0;i<n-3;i++){
		if(check(str,0,i)){
			for(j=i+1;j<n-2;j++){
				if(check(str,i+1,j)){
					for(k=n-1;k>j+1;k--){
						if(check(str,k,n-1)){
							c++;
						}
					}
				}
			}
		}
	}*/
	memset(num,-1,sizeof(num));
	for(i=n-1;i>2;i--){
		if(check(str,i,n-1)){
			for(j=i-1;j>1;j--){
				if(num[j]<0){
					num[j]=0;
					for(k=j-1;k>0;k--){
						if(check(str,k,j-1)){
							if(check(str,0,k-1)){
								num[j]++;
								c++;
							}
						}
					}
				}else{
					c+=num[j];
				}
			}
		}
	}
	printf("%ld\n",c);
	return 0;
}