module Main where

import Control.Monad
import Data.List
import Text.Printf (printf)
import qualified Data.ByteString.Char8 as B

readi :: B.ByteString -> Int
readi bs | Just (n, _) <- B.readInt bs = n

f :: Int -> [Int] -> Int -> [Int]
f k xs y
    | y > k     = y : xs
    | otherwise = xs

main :: IO ()
main = do
    n <- readLn
    (k:as) <- replicateM n $ do
        readi <$> B.getLine
    let ss = scanl (f k) [] as
    let rs = fmap ((+ 1) . length) ss
    mapM_ print rs