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

int main() {
    string t;
    cin >> t;
    int n = t.size();
    vector<int> cnt(26, 0);
    for (char c : t) if (c >= 'a' && c <= 'z') cnt[c - 'a']++;

    // BFS với 2 hàng đợi: lẻ và chẵn (theo bán kính)
    queue<pair<int, int>> oddQ, evenQ;
    // oddQ: (center, radius) - palindrome lẻ, ...
    // Simplified: dùng Manacher

    string s = "#";
    for (char c : t) { s += c; s += '#'; }
    int m = s.size();
    vector<int> p(m, 0);
    int center = 0, right = 0;
    for (int i = 0; i < m; i++) {
        if (i < right) p[i] = min(right - i, p[2 * center - i]);
        while (i - p[i] - 1 >= 0 && i + p[i] + 1 < m && s[i - p[i] - 1] == s[i + p[i] + 1])
            p[i]++;
        if (i + p[i] > right) { center = i; right = i + p[i]; }
    }

    // Với mỗi vị trí tương ứng ký tự gốc, tính ngày gần nhất palindrome kết thúc (theo đề)
    // Bài này là "Số ngày đếm palindrome đến hết", ta đơn giản: đếm palindrome
    long long total = 0;
    for (int i = 1; i < m; i += 2) total += (p[i] + 1) / 2;  // lẻ
    cout << total << endl;
    return 0;
}