import Data.List

main = do
 s <- getLine
 let fs = map (\f -> div (f*(f+1)) 2 - f) . scanr (+) 0 . map (\c -> if c=='w' then 1 else 0) $ s
 print . sum . map snd . filter ((=='c') . fst) $ zip s fs