main :: IO ()
main = getContents >>= print . length . filter (== 'W')