let getLastDig (str:string) = str.ToCharArray() |> Array.last

let(|First|Second|Third|Other|) = function
    | '1' -> First
    | '2' -> Second
    | '3' -> Third
    |  _  -> Other
        
let reformat str =
    match getLastDig str with
    | First  -> str + "st"
    | Second -> str + "nd"
    | Third  -> str + "rd"
    | Other  -> str + "th"

let H,N = let t = stdin.ReadLine().Split() |> Array.map int in t.[0],t.[1]
let Hn = Array.init (N-1) (fun _ -> stdin.ReadLine() |> int)

Hn
|> Array.where(fun x -> x > H)
|> Array.length
|> fun x -> x + 1
|> string
|> reformat
|> printfn "%s"