n = gets.to_i
strs = []
cnt = 0
n.times do |i|
  str = gets.gsub(/\n/,"").downcase
  strs << str
  cnt += str.scan("ab").count
end
a_b_cnt = 0
strs.each_with_index do |elm, i|
  if elm.match(/^b.*a$/)
    a_b_cnt+=1 
    strs.delete_at(i)
  end
end
a_last_cnt = strs.select{|s| s.match(/a$/)}.count
b_first_cnt = strs.select{|s| s.match(/^b/)}.count
 
cnt += ((a_b_cnt <= 1)? 0 : (a_b_cnt - 1))
 
if a_b_cnt > 0 
  if a_last_cnt <= b_first_cnt
    a_last_cnt += 1
  else
    b_first_cnt += 1
  end
end
 
cnt += (a_last_cnt <= b_first_cnt)?a_last_cnt:b_first_cnt
p cnt