main = do
  li <- getLine
  let [n,k] = map read $ words li
  li <- getLine
  let hs = map read $ words li
  let ans = compute n k hs
  print ans

compute :: Int -> Int -> [Int] -> Int
compute _ k hs = length $ filter (k <=) hs
