solve :: String -> Integer
solve [] = 0
solve ('c':xs) = count * (count - 1) `div` 2 + solve xs	where
		count = fromIntegral $ length (filter (=='w') xs)
solve (_:xs) = solve xs

main = do
	str <- getLine
	print $ solve str