print((function (s)
	local r,c,t = 0,0,s:find("A")
	if t == nil then return r end
	for i=t,#s do if s:sub(i,i)=="A" then r,c = r+i-1-c,c+1 end end
	return r
end)(io.stdin:read("*l")))