program main
 implicit none
 character*80 LR
 integer i,j,k,d
 integer*8,allocatable::A(:),B(:)
 read(*,*) LR
 d = len_trim(LR)
 allocate(A(1:d), B(1:d))
 j = 1
 do i=1,d-1
  A(i) = 0
  if(LR(i:i) == 'R' .and. LR(i+1:i+1) == 'L') then
   B(j) = i
   j = j+1
  end if
 end do
 A(d) = 0
 k = j-1
 
 do i=1,d
  if(LR(i:i) == 'R') then
   do j=1,k
    if(B(j) - i >= 0) then
     if(mod(B(j)+1-i,2) == 0) then
      A(B(j)+1) = A(B(j)+1)+1
     else
      A(B(j)) = A(B(j))+1
     end if
     exit
    end if
   end do
  else
   do j=k,1,-1
    if(B(j) - i < 0)then
     if(mod(i - B(j),2) == 0) then
      A(B(j)) = A(B(j)) + 1
     else
      A(B(j)+1) = A(B(j)+1) + 1
     end if
     exit
    end if
   end do
  end if
 end do
 write(*,*) A
end program main