program main
  implicit none
  character(len=100000) :: s
  integer :: i, j, n, k = 0, l = 0
  integer, allocatable :: h1(:), h2(:)

  read *, s
  n = len_trim(s)
  allocate (h1(n), h2(n))
  h1 = 0
  h2 = 0

  do i = 1, n-1
    if (s(i:i+1) == 'RR') then
      k = k + 1
    else if(s(i:i+1) == 'RL') then
      h1(i) = h1(i) + int((k+2)/2)
      h1(i+1) = h1(i+1) + int((k+1)/2)
      k = 0
    end if
    j = n - i + 1
    if (s(j-1:j) == 'LL') then
      l = l + 1
    else if (s(j-1:j) == 'RL') then
      h2(j) = h2(j) + int((l+2)/2)
      h2(j-1) = h2(j-1) + int((l+1)/2)
      l = 0
    end if
  end do

  do i = 1, n
    write(*, fmt='(i0, x)', advance='no') h1(i) + h2(i)
  end do
end program
