N, M = gets.split.map(&:to_i)
S = gets.strip

(puts -1; exit ) if S =~ /1{#{M}}/
i, is = N, [N]
while i > 0
  i = ([i - M, 0].max ... i).find{|j| S[j] == '0'}
  is << i
end
puts is.reverse.each_cons(2).map{|a, b| b - a}.join(' ')