main = do
  s <- getLine
  let ans = compute s
  print ans

{-
結局、左にBがある数だけ、Wを移動させることができる。
なので、前からなめて行って、Wが現れるたびに、それ以前に見たBの数を結果に加える。
でよいはず。
-}

compute :: String -> Int
compute s = loop 0 0 s
  where
    loop a _ "" = a
    loop a c ('B':s) = loop a (succ c) s
    loop a c ('W':s) = loop (a+c) c s
