(defun main ()
  (let* ((n (read))
         (m (read-line)))
    (declare (ignore m))
    (princ (loop for i below n
                 sum (loop for c across (read-line)
                           when (char= c #\W)
                           count c)))
    (terpri)))
(main)