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

string s;
int n;

// Đoạn [i..j] (chỉ số từ 0) là "an toàn" khi độ dài >= 6 và có đủ: chữ hoa, chữ thường, chữ số.

// Sub 1: vét cạn — với mỗi điểm đầu i, mở rộng j và ghi nhận đã có đủ 3 loại ký tự chưa. O(n^2). Dùng khi |S| <= 3000.
void sub1() {
    long long ans = 0;
    for (int i = 0; i < n; i++) {
        bool up = false, low = false, dig = false;
        for (int j = i; j < n; j++) {
            char c = s[j];
            if (c >= 'A' && c <= 'Z') up = true;
            else if (c >= 'a' && c <= 'z') low = true;
            else if (c >= '0' && c <= '9') dig = true;
            if (j - i + 1 >= 6 && up && low && dig) ans++;
        }
    }
    cout << ans << "\n";
}

// Sub 2: đếm theo điểm cuối r. Gọi lu, ll, ld là vị trí xuất hiện gần nhất (<= r) của chữ hoa, chữ thường, chữ số.
// Đoạn [l..r] có đủ 3 loại khi l <= min(lu, ll, ld); độ dài >= 6 khi l <= r - 5.
// Với mỗi r, số đoạn an toàn kết thúc tại r là min(min(lu,ll,ld), r-5) + 1 (nếu thiếu loại nào thì không có đoạn nào). O(n).
void sub2() {
    long long ans = 0;
    long long lu = -1, ll = -1, ld = -1;
    for (int r = 0; r < n; r++) {
        char c = s[r];
        if (c >= 'A' && c <= 'Z') lu = r;
        else if (c >= 'a' && c <= 'z') ll = r;
        else if (c >= '0' && c <= '9') ld = r;
        if (lu < 0 || ll < 0 || ld < 0) continue;  // chưa đủ 3 loại ký tự
        long long lim = min(min(lu, ll), min(ld, (long long)r - 5));
        if (lim >= 0) ans += lim + 1;
    }
    cout << ans << "\n";
}

int main() {
    freopen("cau4.inp", "r", stdin);
    freopen("cau4.out", "w", stdout);
    ios::sync_with_stdio(false);
    cin.tie(nullptr);
    cin >> s;
    n = s.size();
    if (n <= 3000) sub1();  // dữ liệu nhỏ: vét cạn
    else sub2();            // đếm theo điểm cuối
    return 0;
}