s = gets.chomp
a = []
s.size.times do |i|
    a.push(i) if s[i] == ?A
end
ans = 0
a.size.times do |i|
    ans += a[i] - i
end
p ans