open System

[<EntryPoint>]
let yuki104 argv : int =
    ()
    |> Console.ReadLine
    |> Seq.fold (fun n c -> n * 2 + if c = 'R' then 1 else 0) 1
    |> printfn "%i"
    0