import Data.List (foldl')

branch :: Integer -> Char -> Integer
branch n c = if c == 'L' then 2 * n else 2 * n + 1

main :: IO ()
main = print . foldl' branch 1 =<< getLine