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