#include <bits/stdc++.h>
using namespace std;

int main() {
    ifstream fin("PALIN.INP");
    ofstream fout("PALIN.OUT");

    string s;
    fin >> s;
    int n = s.size();

    // isPal[i][j] = true nếu s[i..j] là palindrome
    vector<vector<bool>> isPal(n, vector<bool>(n, false));

    // leftPal[i] = số lượng palindrome bắt đầu tại index i
    // rightPal[i] = số lượng palindrome kết thúc tại index i
    vector<long long> leftPal(n, 0);
    vector<long long> rightPal(n, 0);

    // Bước 1: Dùng DP để tìm tất cả palindrome
    for (int len = 1; len <= n; len++) {
        for (int i = 0; i + len - 1 < n; i++) {
            int j = i + len - 1;
            if (len == 1) isPal[i][j] = true;
            else if (len == 2) isPal[i][j] = (s[i] == s[j]);
            else isPal[i][j] = (s[i] == s[j] && isPal[i+1][j-1]);

            if (isPal[i][j]) {
                leftPal[i]++;   // Có thêm 1 palindrome bắt đầu tại i
                rightPal[j]++;  // Có thêm 1 palindrome kết thúc tại j
            }
        }
    }

    // Bước 2: Tính tổng tiền tố (prefix sum) cho dãy leftPal
    // prefixSum[i] = tổng leftPal[0] đến leftPal[i]
    vector<long long> prefixSum(n, 0);
    if (n > 0) prefixSum[0] = leftPal[0];
    for (int i = 1; i < n; i++) {
        prefixSum[i] = prefixSum[i-1] + leftPal[i];
    }

    // Bước 3: Tính tổng hậu tố (suffix sum) cho dãy rightPal
    // suffixSum[i] = tổng rightPal[i] đến rightPal[n-1]
    vector<long long> suffixSum(n+1, 0);
    for (int i = n-1; i >= 0; i--) {
        suffixSum[i] = suffixSum[i+1] + rightPal[i];
    }

    // Bước 4: Đếm các cặp palindrome không giao nhau
    long long total = 0;
    // Duyệt qua điểm chia tách k (palindrome bên trái kết thúc trước hoặc tại k)
    // Palindrome bên trái: [i, j] với j <= k
    // Palindrome bên phải: [x, y] với x > k
    for (int k = 0; k < n - 1; k++) {
        long long countLeft = prefixSum[k];      // Số palindrome kết thúc <= k
        long long countRight = suffixSum[k+1];   // Số palindrome bắt đầu >= k+1
        total += countLeft * countRight;
    }

    fout << total << endl;
    return 0;
}

#include <iostream>
#include <fstream>
#include <string>
#include <vector>

using namespace std;

// Hàm kiểm tra xem một chuỗi con có phải là palindrome không
bool is_palindrome(const string& s, int l, int r) {
    while (l < r) {
        if (s[l] != s[r]) return false;
        l++;
        r--;
    }
    return true;
}

void solve() {
    ifstream fin("PALIN.INP");
    ofstream fout("PALIN.OUT");

    string s;
    fin >> s;
    int n = s.length();
    long long ans = 0;

    // Duyệt tất cả bộ chỉ số (a, b, x, y)
    // a, b: chỉ số của palindrome thứ nhất
    // x, y: chỉ số của palindrome thứ hai
    for (int a = 0; a < n; a++) {
        for (int b = a; b < n; b++) {
            if (is_palindrome(s, a, b)) {
                for (int x = b + 1; x < n; x++) {
                    for (int y = x; y < n; y++) {
                        if (is_palindrome(s, x, y)) {
                            ans++;
                        }
                    }
                }
            }
        }
    }

    fout << ans << endl;
}

int main() {
    solve();
    return 0;
}