require 'set'

S = gets.chomp.chars
L, R = ?L, ?R

LR = (0..(S.size - 1)).select do |i|
  S[i] == R && S[i + 1] == L
end.to_set

cache = Array.new(S.size) { nil }
results = Array.new(S.size) { 0 }

S.each_with_index.sort_by {|s, si| LR.map {|i| (i - si).abs}.min}.each do |s, si|
  count = 0
  i = si
  loop do
    if cache[i]
      i, c_count = cache[i]
      count += c_count
      break
    end
    break if LR.include?(i)
    i += (S[i] == R ? 1 : -1)
    count += 1
  end

  cache[si] = [i, count]

  results[count % 2 == 0 ? i : i + 1] += 1
end

puts results.join(' ')
