use proconio::{*,marker::*};
fn main(){
	input!{s_str:Chars}
	let mut b=1;
	let mut ans=0;
	for s in s_str.into_iter().rev(){
	    if s=='R'{ans+=b}
		b<<=1;
	}
	println!("{}",ans+b);
}