solution :: String -> Int
solution = length
  . filter id
  . map (not . (\x -> (x==6) || (x==5)) . length)
  . concatMap (drop 11)
  . map words
  . lines

main = interact $ show . solution