Scanf.scanf "%d %d" (fun hh n ->
    let h = Array.init (n - 1) (fun _ -> Scanf.scanf " %d" (fun h -> h)) in
    Array.sort (fun a b -> compare b a) h;

    let rec loop i =
        if i = n - 1 then n else
            if hh > h.(i) then i + 1 else loop (i + 1)
    in
    let k = loop 0 in
    match k mod 10 with
    | 1 -> Printf.printf "%dst\n" k
    | 2 -> Printf.printf "%dnd\n" k
    | 3 -> Printf.printf "%drd\n" k
    | _ -> Printf.printf "%dth\n" k
)