module Main where

import Control.Monad

main :: IO ()
main = do
    ss <- getLine
    let as = fmap snd . filter ((== 'A') . fst) $ zip ss [0..]
    let bs = foldr (\(a,b) acc -> a - b + acc) 0 $ zip as [0..]
    print bs