let () = Scanf.scanf "%d %d\n" @@ fun n k ->
  let hs = Array.init n @@ fun _ -> Scanf.scanf "%d " @@ fun h -> h in
  Printf.printf "%d\n" @@
  Array.fold_right (fun h -> ( + ) @@ if k <= h then 1 else 0) hs 0
