main :: IO ()
main = getLine >>= print . solve

solve :: String -> Int
solve s = solve' s 0 0 0
    where
        solve' :: String -> Int -> Int -> Int -> Int
        solve' [] _a _ab abb      = abb
        solve' ('c' : t) a ab abb = solve' t (a + 1) ab abb
        solve' ('w' : t) a ab abb = solve' t a (ab + a) (abb + ab)
        solve' (h : t) a ab abb   = solve' t a ab abb