let n, k = Scanf.scanf " %d %d" @@ fun a b -> a, b
let cs = Array.init n @@ fun _ -> Scanf.scanf " %d" @@ fun h -> if h >= k then 1 else 0
let _ = Printf.printf "%d\n" @@ Array.fold_left (fun s b -> s + b) 0 cs