(defvar S)
(defvar ans)

(setq ans 1)
(loop for char = (read-char nil nil) do  
    (if (eq char #\Newline) (return))
    (setq ans (* ans 2)) 
    (if (eq char #\R) (setq ans (+ ans 1)))
)
(format 't "~d~%" ans)