#!/usr/bin/perl

use strict;
use warnings;

my $str =<>;
chomp $str;
my @array = split //, $str;
my $ans = 1;

for(my $i = 0; $i < length $str; $i++) {
		if($array[$i] eq 'L') {
			$ans *= 2;
		} else {
			$ans *= 2;
			$ans++;
		}
}

print "$ans\n";

exit;