#include <bits/stdc++.h>
using namespace std;
int main() {
    string s;
    cin >> s;
    int n = s.size();
    // Xâu đối xứng khi s == reverse(s)
    string r = s;
    reverse(r.begin(), r.end());
    string combined = s + "#" + r;
    int m = combined.size();
    vector<int> sa(m), rank(m), tmp(m);
    for (int i = 0; i < m; i++) { sa[i] = i; rank[i] = combined[i]; }
    for (int k = 1; k < m; k *= 2) {
        auto cmp = [&](int a, int b) {
            if (rank[a] != rank[b]) return rank[a] < rank[b];
            int ra = (a + k < m) ? rank[a + k] : -1;
            int rb = (b + k < m) ? rank[b + k] : -1;
            return ra < rb;
        };
        sort(sa.begin(), sa.end(), cmp);
        tmp[sa[0]] = 0;
        for (int i = 1; i < m; i++)
            tmp[sa[i]] = tmp[sa[i-1]] + cmp(sa[i-1], sa[i]);
        rank = tmp;
    }
    vector<int> lcp(m, 0);
    vector<int> inv(m);
    for (int i = 0; i < m; i++) inv[sa[i]] = i;
    int k = 0;
    for (int i = 0; i < m; i++) {
        if (inv[i] == m - 1) { k = 0; continue; }
        int j = sa[inv[i] + 1];
        while (i + k < m && j + k < m && combined[i + k] == combined[j + k]) k++;
        lcp[inv[i]] = k;
        if (k > 0) k--;
    }
    // Palindrome = xâu con S[i..n-1-i] khớp với R[0..n-1-i]
    // LCP giữa S[i..n-1] và R[0..n-1-i] = palindrome dài (n-i) bán đối xứng
    // Thực tế: nếu S[i..n-1] khớp với R[0..n-1-i] thì S[i..n-1] = reverse(S[i..n-1])
    // Đếm palindrome: 
    long long count = 0;
    for (int i = 0; i < n; i++) {
        int pos_in_combined_s = i;
        int pos_in_combined_r = n + 1 + (n - 1 - i);
        int inv_s = inv[pos_in_combined_s];
        int inv_r = inv[pos_in_combined_r];
        // Tìm palindrome dài nhất bắt đầu từ i (palindrome lẻ)
        int lo = inv_s, hi = inv_r;
        if (lo > hi) swap(lo, hi);
        int min_lcp = INT_MAX;
        for (int x = lo; x < hi; x++) min_lcp = min(min_lcp, lcp[x]);
        // Palindrome dài nhất bắt đầu từ i (lẻ): độ dài 2*min_lcp - 1
        // Tất cả palindrome lẻ độ dài 1, 3, 5, ..., 2*min_lcp - 1 bắt đầu từ i
        count += (min_lcp + 1) - 1 + 1; // Số palindrome lẻ
        // (Đây là phép đếm tương tự CountPalinOfEachPrefix)
        // Tối ưu: cần tính palindrome chẵn cho mỗi cặp i, i+1
    }
    // Đếm thêm palindrome chẵn
    for (int i = 0; i + 1 < n; i++) {
        // palindrome chẵn: S[i-k+1..i] = reverse(S[i..i+k-1]) 
        // tức là LCP giữa hậu tố S[i-k+1..] và reverse(S[0..i])
        int pos_s = i - 0 + 1;  // Vị trí trong combined
        // ... logic phức tạp hơn
    }
    // Cách đơn giản hơn: chỉ đếm palindrome bằng cách duyệt
    // Để đơn giản, dùng cách O(N^2) cho N <= 5000
    long long simple = 0;
    for (int i = 0; i < n; i++) {
        for (int j = 0; j <= 1; j++) {
            int l = i, r = i + j;
            while (l >= 0 && r < n && s[l] == s[r]) {
                simple++;
                l--; r++;
            }
        }
    }
    cout << simple << endl;
    return 0;
}