!!!**********************************************************************
program main
!!!**********************************************************************

  implicit none

  character ( len = 100000 ) S_str
  character ( len = 1 ) tmp
  integer :: N, i, k

  integer, allocatable, dimension ( : ) :: num, pos

!!!----------------------------------------------------------------------

  read ( *, * ) S_str

  N = len_trim ( S_str )

  allocate ( num ( 1:N ) )
  allocate ( pos ( 1:N ) )

  num ( : ) = 0
  pos ( : ) = 0  
  
  do i = 1, N

     write ( unit = tmp, fmt = '(a1)' ) S_str(i:i)

     if ( tmp .eq. 'R' ) then

        pos ( i ) = index ( S_str ( i:N ), "RL" ) + i - 1

     elseif ( tmp .eq. 'L') then

        pos ( i ) = index ( S_str ( 1:i ), "RL", back=.true. )

     end if

     k = pos ( i )+ mod( abs ( i - pos ( i ) ), 2 )

     num ( k ) = num ( k ) + 1

  end do

  do i = 1, N
     
     write ( unit = *, fmt = '(i0)', advance = 'no' ) num ( i )
     
     if (i/=N) then
        
        write ( unit = *, fmt = '(a1)', advance = 'no' ) ' '
        
     else
        
        write ( unit = *, fmt = * )
        
     end if
     
  end do

!!!**********************************************************************  
end program main
!!!**********************************************************************
