import Data.Array

main = do
  s <- getLine
  let ans = compute s
  putStrLn $ unwords $ map show ans

compute :: String -> [Int]
compute s = elems res
  where
    n = length s
    ar0 = listArray (1,n) [ if c == 'L' then i-1 else i+1 | (i,c) <- zip [1..] s ]
    do10 arr = listArray (1,n) [ (!! 10) $ iterate (arr !) i | i <- [1..n] ]
    ar100 = (!! 100) $ iterate do10 ar0
    res = accumArray (+) 0 (1,n) [ (ar100 ! i,1) | i <- [1..n] ]
