s=$<.read.split(/\n-+\n/).map{|s|s.count('*')/5}
puts s