import qualified Data.ByteString.Char8 as BC
import Data.Maybe
import Data.List

readIntsLine :: IO [Int]
readIntsLine = map (fst . fromJust . BC.readInt) . BC.words <$> BC.getLine

solve :: Int -> [Int] -> Int
solve _ [] = 0
solve k (h:hs) = result + solve k hs
  where result = if h >= k then 1 else 0

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