#include <bits/stdc++.h>
using namespace std;
long long ago;
char str[2222];
int dp1[2222], dp2[2222];
int main() {
  scanf("%s", str);
  int l = strlen(str);
  dp1[0] = 1;
  dp2[l - 1] = 1;
  memset(dp1, 0, sizeof(dp1));
  memset(dp2, 0, sizeof(dp2));
  for (int i = 0; i < l; i++) {
    for (int j = i, k = i; j >= 0 && k < l && str[j] == str[k]; j--, k++)
      dp1[j]++, dp2[k]++;
    for (int j = i, k = i + 1; j >= 0 && k < l && str[j] == str[k]; j--, k++)
      dp1[j]++, dp2[k]++;
  }
  ago = 0;
  for (int i = 1; i < l; i++) dp2[i] += dp2[i - 1];
  for (int i = 1; i < l; i++) ago += dp2[i - 1] * dp1[i];
  cout << ago << endl;
  return 0;
}
