character(10**5) S
integer,allocatable,dimension(:)::A
integer rcnt,lcnt
read*,S
allocate( A(len_trim(S)) )
A=0

rcnt=0
do i=1,len_trim(S)
  if(S(i:i)=="R")then
    rcnt=rcnt+1
  else
    if(S(i-1:i-1)=="R")then
      A(i-1)=A(i-1)+(rcnt+1)/2
      A(i)=A(i)+rcnt/2
    endif
    rcnt=0
  endif
end do
lcnt=0
do i=len_trim(S),1,-1
  if(S(i:i)=="L")then
    lcnt=lcnt+1
  else
    if(S(i+1:i+1)=="L")then
      A(i+1)=A(i+1)+(lcnt+1)/2
      A(i)=A(i)+lcnt/2
    endif
    lcnt=0
  endif
end do
write(*,'(i0)', advance='no') A(1)
do i=2,len_trim(S)
  write(*,'(x,i0)', advance='no')A(i)
end do
  write(*,*)
end