solve :: Int -> String -> Int
solve n [] = n
solve n ('L':xs) = solve (n*2) xs
solve n ('R':xs) = solve (n*2+1) xs
solve _ _ = undefined

main :: IO ()
main = do
    s <- getLine :: IO String
    print $ solve 1 s