import Data.IORef
import Control.Monad

main :: IO()
main = do
  [n, k] <- map read . words <$> getLine :: IO([Int])
  hs <- map read . words <$> getLine :: IO([Int])
  putStrLn $ show $ solve k hs

solve :: Int -> [Int] -> Int
solve k hs = foldr f 0 hs
  where
    f x acc = if x >= k then acc + 1 else acc
