Problem:
Score : 600 points

Problem Statement

Takahashi is playing a board game called Sugoroku.

On the board, there are N + 1 squares numbered 0 to N. Takahashi starts at Square 0, and he has to stop exactly at Square N to win the game.

The game uses a roulette with the M numbers from 1 to M. In each turn, Takahashi spins the roulette. If the number x comes up when he is at Square s, he moves to Square s+x. If this makes him go beyond Square N, he loses the game.

Additionally, some of the squares are Game Over Squares. He also loses the game if he stops at one of those squares. You are given a string S of length N + 1, representing which squares are Game Over Squares. For each i (0 \leq i \leq N), Square i is a Game Over Square if S[i] = 1 and not if S[i] = 0.

Find the sequence of numbers coming up in the roulette in which Takahashi can win the game in the fewest number of turns possible. If there are multiple such sequences, find the lexicographically smallest such sequence. If Takahashi cannot win the game, print -1.

Constraints

1 \leq N \leq 10^5

1 \leq M \leq 10^5

|S| = N + 1

S consists of 0 and 1.

S[0] = 0

S[N] = 0

Input

Input is given from Standard Input in the following format:

N M
S

Output

If Takahashi can win the game, print the lexicographically smallest sequence among the shortest sequences of numbers coming up in the roulette in which Takahashi can win the game, with spaces in between.

If Takahashi cannot win the game, print -1.

Sample Input 1

9 3
0001000100

Sample Output 1

1 3 2 3

If the numbers 1, 3, 2, 3 come up in this order, Takahashi can reach Square 9 via Square 1, 4, and 6. He cannot reach Square 9 in three or fewer turns, and this is the lexicographically smallest sequence in which he reaches Square 9 in four turns.

Sample Input 2

5 4
011110

Sample Output 2

-1

Takahashi cannot reach Square 5.

Sample Input 3

6 6
0101010

Sample Output 3

6

Solution in Haskell (GHC 7.10.3) (judge verdict: Time Limit Exceeded)

-- https://github.com/minoki/my-atcoder-solutions
{-# LANGUAGE BangPatterns #-}
import Data.Char (isSpace)
import Data.List
import Control.Monad
import qualified Data.Vector.Unboxed as U
import qualified Data.Vector.Unboxed.Mutable as UM
import qualified Data.ByteString.Char8 as BS
import qualified Data.ByteString.Builder as BSB
import System.IO
import Data.Monoid

main = do
  [n,m] <- unfoldr (BS.readInt . BS.dropWhile isSpace) <$> BS.getLine
  s <- BS.getLine
  let v1 :: U.Vector Int
      v1 = U.create $ do
        v <- UM.replicate (n+1) (10^6)
        UM.write v 0 0
        forM_ [1..n] $ \i -> do
          when (BS.index s i == '0') $ do
            let loop !acc !j | j == i = return acc
                             | otherwise = do
                                 v <- (+1) <$> UM.read v j
                                 loop (min acc v) (j+1)
            x <- loop (10^6) (max 0 (i-m))
            UM.write v i x
        return v
      v2 :: U.Vector Bool
      v2 = U.create $ do
        v <- UM.replicate (n+1) False
        UM.write v n True
        forM_ [n-1,n-2..0] $ \i -> do
          when (BS.index s i == '0') $ do
            let !t = min (i+m) n
            let loop j | j > t = return False
                       | v1 U.! i + 1 /= v1 U.! j = loop (j+1)
                       | otherwise = do
                           u <- UM.read v j
                           if u then return True else loop (j+1)
            reachable <- loop (i+1)
            {-
            reachable <- or <$> (forM [i+1..min (i+m) n] $ \j -> do
                                    ( &&) <$> UM.read v j
                                )
            -}
            UM.write v i reachable
        return v
      go w | U.null w = []
           | otherwise = case U.head w of
                           (i,True) -> let (t,w') = U.span (\(x,y) -> not y || x == i) w
                                       in if U.null w' then [U.length t] else U.length t : go w'
  if U.last v1 > 10^5 then
    print (-1)
  else do
    BSB.hPutBuilder stdout $ (mconcat $ intersperse (BSB.char7 ' ') $ map BSB.intDec $ init $ go (U.zip v1 v2)) <> BSB.char7 '\n'