let () =
  let h, n = Scanf.scanf "%d %d " (fun h n -> h, n) in
  let n = n - 1 in
  let a = Array.init n (fun _ -> Scanf.scanf "%d " (fun i -> i)) in
  Array.fast_sort (fun x y -> y - x) a;
  let rec doit i =
    if i = n || h > a.(i) then i + 1
    else doit (i + 1) in
  let i = doit 0 in
  let s = string_of_int i in
  let n = String.length s in
  Printf.printf "%s%s\n" s
    (if s.[n-1] = '1' then "st"
     else if s.[n-1] = '2' then "nd"
     else if s.[n-1] = '3' then "rd"
     else "th")