s = gets.chomp
res = 0
flag = true
while flag
	flag = false
	s.gsub!(/A(BC)+/) do |x|
		flag = true
	#	p  [x,x.size / 2]
		res += x.size / 2
		x << ?A
		x[1..-1]
	end

	s.gsub!(/A+(BC)/) do |x|
		flag = true
	#	p  [x,t = x.size -  2]
		t = x.size - 2
		res += t
		"BC" << ?A*t
	end
#	p [s,res]
end
p res


