import Control.Applicative

main :: IO ()
main = do
    [_,b] <- map read . words <$> getLine
    ns <- map read . words <$> getLine
    putStrLn $ show (solve b ns)
    
solve :: Int -> [Int] -> Int
solve b ns = length (filter (b <=) ns)