import Data.List
import Data.Char
import Data.Maybe
import qualified Data.ByteString.Char8 as BS8

main :: IO ()
main = do
    [_, k] <- unfoldr (BS8.readInt . BS8.dropWhile isSpace) <$> BS8.getLine
    h <- unfoldr (BS8.readInt . BS8.dropWhile isSpace) <$> BS8.getLine

    print $ length $ filter (k <=) h