#include <bits/stdc++.h>
using namespace std;
#define fi first
#define se second
#define pb push_back
#define mp make_pair
#define inf 1000000005
#define all(a) (a).begin(), (a).end()
#define ms(a,x) memset(a, x, sizeof(a))
/* #define mod 1000000007 */
#define sz(a) ((int)(a).size())
template<class T> int getbit(T s, int i) { return (s >> i) & 1; }
template<class T> T onbit(T s, int i) { return s | (T(1) << i); }
template<class T> T offbit(T s, int i) { return s & (~(T(1) << i)); }
template<class T> int cntbit(T s) { return __builtin_popcountll(s);}
#define Rep(i,n) for(int i = 0; i < (n); ++i)
#define Repd(i,n) for(int i = (n)-1; i >= 0; --i)
#define For(i,a,b) for(int i = (a); i <= (b); ++i)
#define Ford(i,a,b) for(int i = (a); i >= (b); --i)
typedef unsigned long long ull;
typedef long long ll;
typedef long double ld;
#define eps 1e-6
typedef pair<int, int> II;
template<class T> T gcd(T a, T b){ T r; while (b != 0) { r = a % b; a = b; b = r; } return a;}
template<class T> T lcm(T a, T b) { return a / gcd(a, b) * b; }
#define PI 2 * acos(0)
#define maxn 1000025
#define maxm 30000005
string s;
ll n;
ld nH = 0, nU = 0;
void sol(){
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cin >> s;
n = sz(s);
ld res = 0;
For(i, 1, n){
char c = s[i - 1];
if(c == 'H'){
res += i + i;
nH++;
} else if(c == '?'){
res += i;
nU++;
}
}
res -= (nH * nH + nH * nU + nU * (nU + 1) / 4);
cout << fixed << setprecision(1) << res << endl;
}
int main(){
sol();
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgZmkgZmlyc3QKI2RlZmluZSBzZSBzZWNvbmQKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBtcCBtYWtlX3BhaXIKI2RlZmluZSBpbmYgMTAwMDAwMDAwNQojZGVmaW5lIGFsbChhKSAoYSkuYmVnaW4oKSwgKGEpLmVuZCgpCiNkZWZpbmUgbXMoYSx4KSBtZW1zZXQoYSwgeCwgc2l6ZW9mKGEpKQovKiAjZGVmaW5lIG1vZCAxMDAwMDAwMDA3ICovCiNkZWZpbmUgc3ooYSkgKChpbnQpKGEpLnNpemUoKSkKCnRlbXBsYXRlPGNsYXNzIFQ+IGludCBnZXRiaXQoVCBzLCBpbnQgaSkgeyByZXR1cm4gKHMgPj4gaSkgJiAxOyB9CnRlbXBsYXRlPGNsYXNzIFQ+IFQgb25iaXQoVCBzLCBpbnQgaSkgeyByZXR1cm4gcyB8IChUKDEpIDw8IGkpOyB9CnRlbXBsYXRlPGNsYXNzIFQ+IFQgb2ZmYml0KFQgcywgaW50IGkpIHsgcmV0dXJuIHMgJiAofihUKDEpIDw8IGkpKTsgfQp0ZW1wbGF0ZTxjbGFzcyBUPiBpbnQgY250Yml0KFQgcykgeyByZXR1cm4gX19idWlsdGluX3BvcGNvdW50bGwocyk7fQojZGVmaW5lIFJlcChpLG4pIGZvcihpbnQgaSA9IDA7IGkgPCAobik7ICsraSkKI2RlZmluZSBSZXBkKGksbikgZm9yKGludCBpID0gKG4pLTE7IGkgPj0gMDsgLS1pKQojZGVmaW5lIEZvcihpLGEsYikgZm9yKGludCBpID0gKGEpOyBpIDw9IChiKTsgKytpKQojZGVmaW5lIEZvcmQoaSxhLGIpIGZvcihpbnQgaSA9IChhKTsgaSA+PSAoYik7IC0taSkKCnR5cGVkZWYgdW5zaWduZWQgbG9uZyBsb25nIHVsbDsKdHlwZWRlZiBsb25nIGxvbmcgbGw7CnR5cGVkZWYgbG9uZyBkb3VibGUgbGQ7CiNkZWZpbmUgZXBzIDFlLTYKdHlwZWRlZiBwYWlyPGludCwgaW50PiBJSTsKdGVtcGxhdGU8Y2xhc3MgVD4gVCBnY2QoVCBhLCBUIGIpeyBUIHI7IHdoaWxlIChiICE9IDApIHsgciA9IGEgJSBiOyBhID0gYjsgYiA9IHI7IH0gcmV0dXJuIGE7fQp0ZW1wbGF0ZTxjbGFzcyBUPiBUIGxjbShUIGEsIFQgYikgeyByZXR1cm4gYSAvIGdjZChhLCBiKSAqIGI7IH0KI2RlZmluZSBQSSAyICogYWNvcygwKQojZGVmaW5lIG1heG4gMTAwMDAyNQojZGVmaW5lIG1heG0gMzAwMDAwMDUKCnN0cmluZyBzOwpsbCBuOwpsZCBuSCA9IDAsIG5VID0gMDsKCnZvaWQgc29sKCl7CiAgaW9zX2Jhc2U6OnN5bmNfd2l0aF9zdGRpbyhmYWxzZSk7CiAgY2luLnRpZShOVUxMKTsKCiAgY2luID4+IHM7CiAgbiA9IHN6KHMpOwogIGxkIHJlcyA9IDA7CiAgRm9yKGksIDEsIG4pewogICAgY2hhciBjID0gc1tpIC0gMV07CiAgICBpZihjID09ICdIJyl7CiAgICAgIHJlcyArPSBpICsgaTsKICAgICAgbkgrKzsKICAgIH0gZWxzZSBpZihjID09ICc/Jyl7CiAgICAgIHJlcyArPSBpOwogICAgICBuVSsrOwogICAgfQogIH0KICByZXMgLT0gKG5IICogbkggKyBuSCAqIG5VICsgblUgKiAoblUgKyAxKSAvIDQpOwoKICBjb3V0IDw8IGZpeGVkIDw8IHNldHByZWNpc2lvbigxKSA8PCByZXMgPDwgZW5kbDsKfQoKaW50IG1haW4oKXsKICBzb2woKTsKICByZXR1cm4gMDsKfQo=