S=gets.chop.chars
ans=[0]*S.size
S.each.with_index do |c,i|
  next if c==?R
  next if S[i-1]==?L
  ans[i]=1
  1.upto(i) do |l|
    c=S[i-l]
    break if c==?L
    ans[i-l[0]]+=1
  end
  1.upto(S.size-1-i) do |r|
    c=S[i+r]
    break if c==?R
    ans[i-r[0]]+=1
  end
end
puts ans*" "