import Control.Monad
import Data.List
f n s
 |null s=n
 |null (init s)=n
 |s!!0=='A'&&s!!1=='B'=f(n+1)(drop 1 s)
 |otherwise=f(n)(drop 1 s)
main=do
 n<-readLn :: IO Int
 ss<-replicateM n getLine
 let sr=sum$map(f n)ss
     sa=sum$map(\x->if head x=='B' then 1 else 0)ss
     sb=sum$map(\x->if last x=='A' then 1 else 0)ss
     sp=min sa sb
     sq=if sp>=n then n-1 else sp
 print$sr+sq