#include<iostream>
#include<vector>
using namespace std;

string s;

bool isPalindrome(int i, int j){
    for(int k = 0; k <= (j-i)/2; k++){
        if(s[i+k] != s[j-k])    return false;
    }
    return true;
}

int main(){
    cin >> s;
    
    int n = s.length();
    vector<int> v[n], aft(n, 0);

    for(int i = 0; i < n; i++){
        for(int j = i; j < n-2; j++){
            if(isPalindrome(i,j))   v[i].push_back(j);
        }
    }

    for(int i = 0; i < n; i++){
        if(isPalindrome(i, n-1))    aft[i] = 1;
    }

    for(int i = n-2; i >= 0; i--)   aft[i] += aft[i+1];

    // 最悪計算量はO(n^2)なので間に合うはず...?
    long long ans = 0;
    for(int i : v[0]){
        for(int j : v[i+1]){
            ans += aft[j+2];
        }
    }

    cout << ans << endl;

    return 0;
}