main::IO()
main = do
  xs <-getLine
  let kaijou 0 = 1
      kaijou n = n * kaijou (n-1)
      nCr n r 
        |n<r    = 0
        |otherwise = kaijou n `div` kaijou r `div` kaijou (n-r)
      exe _ [] =[]
      exe n (x:xs)
        |x=='c'    = (nCr n 2):exe n xs
        |x=='w'    = exe (n+1) xs
        |otherwise = exe n xs

  print . sum . exe 0 $reverse xs