gets;p $<.map{|s|s.gsub(/R/,'').size-1}.sum