main :: IO ()
main = do
    s <- getLine
    let ans = maximum . fst $ foldr (\c (i:is, b) ->
            if c == 'R' then if b then ((i+1:is), True)
                                  else ((1:i:is), True)
                        else (i:is, False))
            ([0], False) s
    print ans
