import Control.Applicative ((<$>))
import Control.Monad (when)

main :: IO ()
main = do
  n <- readLn
  k <- readLn
  print 1
  solve k 1 (n - 1)

solve :: Int -> Int -> Int -> IO ()
solve k r x = do
  when (x /= 0) $ do
    a <- readLn
    if k < a then do
      print (r + 1)
      solve k (r + 1) (x - 1)
    else do
      print r
      solve k r (x - 1)