#include <bits/stdc++.h>
using namespace std;
int dp[2][2010];
int main() {
  string a;
  cin >> a;
  int l = a.size();
  for (int i = 0; i < l; i++) {
    int j = 0;
    while (i - j >= 0 && i + j < l)
      if (a[i - j] == a[i + j]) {
        dp[0][i - j]++;
        dp[1][i + j]++;
        j++;
      } else
        break;
  }
  for (int i = 0; i < l - 1; i++) {
    int j = 0;
    while (i - j >= 0 && i + j + 1 < l)
      if (a[i - j] == a[i + j + 1]) {
        dp[0][i - j]++;
        dp[1][i + j + 1]++;
        j++;
      } else
        break;
  }
  for (int i = 0; i < l; i++) dp[0][l - i - 1] += dp[0][l - i];
  long long cnt = 0;
  for (int i = 0; i < l - 1; i++) cnt += (dp[0][i + 1] * dp[1][i]);
  cout << cnt << endl;
  return 0;
}
