main :: IO ()
main = interact $ show . length . filter (== 'W') . concat . drop 2 . words