character(50)::S
ii=0
read*,i,j
do ic=1,i
  read*,S
  do jc=1,j
    if(S(jc:jc)=="W")ii=ii+1
  end do
end do
print"(i0)",ii
end