let stream_filter p stream =
  let rec next i =
    try
      let value = Stream.next stream in
      if p value then Some value else next i
    with Stream.Failure -> None
  in
  Stream.from next

let stream_length st =
  let len = ref 0 in
  Stream.iter (fun _ -> len := !len + 1) st;
  !len


let () =
  let h, n = read_line ()
             |> fun l -> Scanf.sscanf l "%d %d" (fun h n -> (h, n))
  in
  Stream.from (fun i ->
    if i >= n - 1 then None
    else
      let hn = read_line () |> int_of_string in
      Some(hn))
  |> stream_filter (fun hn -> hn > h)
  |> stream_length
  |> (+) 1
  |> (function
      | r when r mod 10 = 1 -> Printf.sprintf "%dst" r
      | r when r mod 10 = 2 -> Printf.sprintf "%dnd" r
      | r when r mod 10 = 3 -> Printf.sprintf "%drd" r
      | r -> Printf.sprintf "%dth" r)
  |> print_endline