character(2*10**5) S
integer cntA
integer ans
logical BC
read*,S
cntA=0
ans=0;BC=.false.
do i=1,len_trim(S)
  if(BC)then
    BC=.false.
    cycle
  endif
  if(S(i:i)=="A")cntA=cntA+1
  if(S(i:i)=="B")then
    if(S(i+1:i+1)=="C")then
      ans=ans+cntA
      BC=.true.
    else
      cntA=0
    endif
  endif
  if(S(i:i)=="C")cntA=0
end do

print"(I0)",ans

end