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

int main() {
    ios::sync_with_stdio(false);
    cin.tie(nullptr);
    freopen("matkhau.inp", "r", stdin);
    freopen("matkhau.out", "w", stdout);

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

    // Duyệt qua từng vị trí kết thúc 'i' của xâu con
    // Giữ 'l' là vị trí bắt đầu nhỏ nhất thỏa mãn điều kiện
    // a, b, c là số lượng ký tự thường, hoa, số trong đoạn [l, i]
    long long ans = 0;
    int l = 0;
    long long a = 0, b = 0, c = 0;

    for (int i = 0; i < n; ++i) {
        // Thêm ký tự s[i] vào đoạn hiện tại
        if ('a' <= s[i] && s[i] <= 'z') a++;
        else if ('A' <= s[i] && s[i] <= 'Z') b++;
        else c++;

        // Thúc l về phải cho đến khi đoạn [l, i] không còn đủ điều kiện
        // Điều kiện: độ dài >= 6 (i - l + 1 >= 6) và có đủ 3 loại ký tự
        while (l <= i && i - l + 1 >= 6 && a > 0 && b > 0 && c > 0) {
            ans += (n - i); // Với kết thúc i, tất cả các xâu con bắt đầu từ l đến i đều hợp lệ

            // Loại bỏ ký tự s[l] để kiểm tra tiếp
            if ('a' <= s[l] && s[l] <= 'z') a--;
            else if ('A' <= s[l] && s[l] <= 'Z') b--;
            else c--;
            l++;
        }
    }

    cout << ans;
    return 0;
}

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

int main() {
    ios::sync_with_stdio(false);
    cin.tie(nullptr);
    freopen("matkhau.inp", "r", stdin);
    freopen("matkhau.out", "w", stdout);

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

    // Mảng tiền tố đếm số lượng mỗi loại ký tự
    vector<int> u(n + 1, 0), l(n + 1, 0), d(n + 1, 0);
    for (int i = 0; i < n; i++) {
        u[i + 1] = u[i] + (isupper(s[i]) ? 1 : 0);
        l[i + 1] = l[i] + (islower(s[i]) ? 1 : 0);
        d[i + 1] = d[i] + (isdigit(s[i]) ? 1 : 0);
    }

    long long k = 0;
    // Duyệt qua từng vị trí bắt đầu i
    for (int i = 0; i < n; i++) {
        int left = i + 6, right = n, res = -1;
        // Tìm vị trí kết thúc j (thông qua độ dài) nhỏ nhất thỏa mãn điều kiện
        while (left <= right) {
            int mid = (left + right) / 2;
            // Kiểm tra đoạn [i, mid-1]
            if (u[mid] - u[i] > 0 && l[mid] - l[i] > 0 && d[mid] - d[i] > 0) {
                res = mid;
                right = mid - 1;
            } else {
                left = mid + 1;
            }
        }
        if (res != -1) {
            // Nếu tìm thấy, tất cả các xâu con bắt đầu tại i và có độ dài từ (res - i) đến (n - i) đều hợp lệ
            k += n - res + 1;
        }
    }

    cout << k;
    return 0;
}

#include <iostream>
#include <vector>
#include <string>
#include <algorithm>

using namespace std;

void solve() {
    freopen("MATKHAU.INP", "r", stdin);
    freopen("MATKHAU.OUT", "w", stdout);
    ios_base::sync_with_stdio(false);
    cin.tie(NULL);

    string S;
    if (!(cin >> S)) return;

    int n = S.length();
    if (n < 6) {
        cout << 0 << "\n";
        return;
    }

    // L_H[j]: Index của lần cuối xuất hiện ký tự hoa trong đoạn [0, j-1]
    vector<int> L_H(n + 1, 0), L_L(n + 1, 0), L_D(n + 1, 0);

    for (int j = 1; j <= n; ++j) {
        char c = S[j - 1];
        L_H[j] = L_H[j - 1];
        L_L[j] = L_L[j - 1];
        L_D[j] = L_D[j - 1];

        if (c >= 'A' && c <= 'Z') L_H[j] = j;
        else if (c >= 'a' && c <= 'z') L_L[j] = j;
        else if (c >= '0' && c <= '9') L_D[j] = j;
    }

    long long ans = 0;
    for (int j = 6; j <= n; ++j) {
        // Vị trí bắt đầu phải nhỏ hơn vị trí cuối cùng của từng loại ký tự trong đoạn [0, j]
        int start = 0;
        int h = L_H[j];
        int l = L_L[j];
        int d = L_D[j];

        if (h == 0 || l == 0 || d == 0) continue;

        // Vị trí bắt đầu i phải thỏa mãn: i <= h-1, i <= l-1, i <= d-1
        // Và i phải thỏa mãn j - i + 1 >= 6 => i <= j - 5
        // Do đó, i phải nhỏ hơn hoặc bằng min(h, l, d, j-5)
        int max_start = min({h, l, d, j - 5});

        ans += max_start;
    }
    cout << ans << "\n";
}

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