implicit none

integer :: n
character(100000) :: s
integer :: i, kids
integer :: j, nj
integer, allocatable :: k(:), k_pre(:)

nj = 100000

read *, s

n = len_trim(s)

allocate(k(n))
allocate(k_pre(n))

k_pre(:) = 1
k(:) = 0

do j = 1, nj
k(:) = 0
do i = 1, n
   kids = k_pre(i)
   if (kids > 0) then
      if (s(i:i) == 'R') then
         k(i+1) = k(i+1) + kids
      else
         k(i-1) = k(i-1) + kids
      endif
   endif
enddo
k_pre = k(:)
enddo

do i = 1, n-1
   write(6,'(i0,1x)', advance='no') k_pre(i)
enddo
write(6,'(i0)') k_pre(n)

stop
end