main = getLine >>= print . sum . map fst . filter ((=='R') . snd) . zip (iterate (*2) 1) . reverse . ('R':)