program main
  implicit none
  integer i,n_R,n_L,ans,N
  character(10**5) S
  integer,allocatable :: A(:)
  !read(*, *) (L(i), i = 1,N)
  read(*, *) S
  N = len(trim(S))
  allocate(A(N))
  A = 0
  n_R = 1
  n_L = 0
  ans = 1
  do i = 2,N
    if (S(i-1:i) == 'LR') then
      A(ans-1) = (n_R/2) + mod(n_R,2)
      A(ans-1) = A(ans-1) + n_L/2
      A(ans) = n_R/2
      A(ans) = A(ans) + n_L/2 + mod(n_L,2)
      n_R = 1
      n_L = 0
    elseif (S(i-1:i) == 'RL') then
      n_L = 1
      ans = i
    elseif (S(i-1:i) == 'LL') then
      n_L = n_L + 1
    elseif (S(i-1:i) == 'RR') then
      n_R = n_R + 1
    end if
  end do
  A(ans-1) = (n_R/2) + mod(n_R,2)
    A(ans-1) = A(ans-1) + n_L/2
    A(ans) = n_R/2
    A(ans) = A(ans) + n_L/2 + mod(n_L,2)
  write(*, *) A
end program main
