import Control.Applicative ((<$>))
import Control.Monad (replicateM)

main :: IO ()
main = do
  (n:_) <- map read <$> words <$> getLine
  solve <$> replicateM n getLine >>= print

solve :: [String] -> Int
solve = sum . map (length . filter (=='W'))