#include <float.h>
#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

// 内部定数
#define D_CHAR_MAX		5005									// 最大文字数

// 内部変数
static FILE *szpFpI;											// 入力
static char sc1Str[D_CHAR_MAX];									// 文字列
static int siLen;												// 文字列長
static int si2Rev[D_CHAR_MAX][D_CHAR_MAX];						// 回文判定[開始位置][終了位置]
static int si1APCnt[D_CHAR_MAX];								// AP数[開始位置]

// 内部変数 - テスト用
#ifdef D_TEST
	static int siRes;
	static FILE *szpFpA;
	static int siTNo;
#endif

// 出力
int
fOut(
	char *pcpLine				// <I> １行
)
{
	char lc1Buf[1024];

#ifdef D_TEST
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, pcpLine)) {
		siRes = -1;
	}
#else
	printf("%s", pcpLine);
#endif

	return 0;
}

// 改行カット
// 戻り値：文字数
int
fCutCrLf(
	char *pcpStr				// <I> 文字列
)
{
	int i;

	for (i = 0; pcpStr[i] != '\0'; i++) {
		if (pcpStr[i] == '\n') {
			pcpStr[i] = '\0';
			break;
		}
	}

	return i;
}

// 回文判定
int
fIsRev(
	int piSNo					// <I> 開始位置 0～
	, int piENo					// <I> 終了位置 0～
)
{
	// 未判定
	if (si2Rev[piSNo][piENo] == 0) {
		if (piSNo == piENo) {
			si2Rev[piSNo][piENo] = 1;
		}
		else if (sc1Str[piSNo] != sc1Str[piENo]) {
			si2Rev[piSNo][piENo] = -1;
		}
		else if (piSNo + 1 == piENo) {
			si2Rev[piSNo][piENo] = 1;
		}
		else {
			si2Rev[piSNo][piENo] = fIsRev(piSNo + 1, piENo - 1);
		}
	}

	return si2Rev[piSNo][piENo];
}

// AP数 - 取得
int
fGetAPCnt(
	int piSNo					// <I> 開始位置 2～
)
{
	int i, liRet;

	// 未取得
	if (si1APCnt[piSNo] < 0) {
		si1APCnt[piSNo] = 0;

		// A - 終了位置
		for (i = piSNo; i < siLen - 1; i++) {

			// P3 - 回文判定
			liRet = fIsRev(i + 1, siLen - 1);
			if (liRet != 1) {
				continue;
			}

			// AP数 - 加算
			si1APCnt[piSNo]++;
		}
	}

	return si1APCnt[piSNo];
}

// 実行メイン
long long
fMain(
)
{
	int i, j, liRet;

	// 文字列 - 取得
	fgets(sc1Str, sizeof(sc1Str), szpFpI);

	// 改行カット
	siLen = fCutCrLf(sc1Str);

	// P1 - 終了位置
	long long llPCnt = 0;
	for (i = 0; i < siLen - 3; i++) {
	
		// P1 - 回文判定
		liRet = fIsRev(0, i);
		if (liRet != 1) {
			continue;
		}

		// P2 - 終了位置
		for (j = i + 1; j < siLen - 2; j++) {

			// P2 - 回文判定
			liRet = fIsRev(i + 1, j);
			if (liRet != 1) {
				continue;
			}

			// パターン数 - 加算
			llPCnt += fGetAPCnt(j + 1);
		}
	}

	return llPCnt;
}

// １回実行
int
fOne(
)
{
	long long llRet;
	char lc1Buf[1024];

	// データ - 初期化
	memset(si2Rev, 0, sizeof(si2Rev));							// 回文判定
	memset(si1APCnt, -1, sizeof(si1APCnt));						// AP数

	// 入力 - セット
#ifdef D_TEST
	sprintf(lc1Buf, ".\\Test\\T%d.txt", siTNo);
	szpFpI = fopen(lc1Buf, "r");
	sprintf(lc1Buf, ".\\Test\\A%d.txt", siTNo);
	szpFpA = fopen(lc1Buf, "r");
	siRes = 0;
#else
	szpFpI = stdin;
#endif

	// 実行メイン
	llRet = fMain();

	// 結果 - セット
	sprintf(lc1Buf, "%lld\n", llRet);

	// 結果 - 出力
	fOut(lc1Buf);

	// 残データ有無
#ifdef D_TEST
	lc1Buf[0] = '\0';
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, "")) {
		siRes = -1;
	}
#endif

	// テストファイルクローズ
#ifdef D_TEST
	fclose(szpFpI);
	fclose(szpFpA);
#endif

	// テスト結果
#ifdef D_TEST
	if (siRes == 0) {
		printf("OK %d\n", siTNo);
	}
	else {
		printf("NG %d\n", siTNo);
	}
#endif

	return 0;
}

// プログラム開始
int
main()
{

#ifdef D_TEST
	int i;
	for (i = D_TEST_SNO; i <= D_TEST_ENO; i++) {
		siTNo = i;
		fOne();
	}
#else
	fOne();
#endif

	return 0;
}