import Data.List
main = do
       e<-getLine
       es<-getContents
       putStrLn $ show $ length([1|e2<-es,e2=='W'])