main = do
  s <- getLine
  putStrLn . show $ if length s < 2 then 0 else solve [] s 0
  
solve p (a:b:x) c
  | a:b:[] == "BA" = solve [] ((p ++ b:[]) ++ a:x) (c + 1)
  | a:b:[] /= "BA" && x == [] = c
  | a:b:[] /= "BA" = solve (p ++ a:[]) (b:x) c