main = do
    [h, n] <- map (read :: String -> Int) . words <$> getLine
    hs <- map read . lines <$> getContents
    let higher = length $ filter (> h) hs
    let r = higher `mod` 10
    let ex = if r == 0 then "st" else if r == 1 then "nd" else if r == 2 then "rd" else "th"
    putStrLn $ show (higher + 1) ++ ex