{-# LANGUAGE BangPatterns #-}

module Main where

import Control.Monad
import qualified Data.ByteString.Char8 as B

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

solve :: Int -> [Int] -> IO ()
solve k as = print 1 >> iter 1 as
  where
    iter !r []     = return ()
    iter !r (x:xs) =
        if x > k
            then print (r + 1) >> iter (r + 1) xs
            else print r       >> iter r xs

main :: IO ()
main = do
    n <- readLn
    (k:as) <- replicateM n (readi <$> B.getLine)
    solve k as