#include <bits/stdc++.h>
using namespace std;
int L[2020], R[2020];
int main() {
  char s[2020];
  scanf("%s", s);
  int len = strlen(s);
  for (int i = 0; i < len; ++i) {
    for (int l = i, r = i; l >= 0 && r < len && s[l] == s[r]; --l, ++r)
      ++L[l], ++R[r];
    for (int l = i, r = i + 1; l >= 0 && r < len && s[l] == s[r]; --l, ++r)
      ++L[l], ++R[r];
  }
  long long ANS = 0;
  for (int i = 0; i < len - 1; ++i)
    for (int j = i + 1; j < len; ++j) ANS += R[i] * 1ll * L[j];
  printf("%I64d\n", ANS);
  return 0;
}
