; Here your code !

; Here your code !
(define (readn n)  (if (= n 0) '() (cons (read) (readn (- n 1)) ) ))
(define h(read))
(define n (read))
(define hs (readn (- n 1)))
(define ans (+(count (cut < h <>) hs)1))
(display ans)
(cond
    ((= ans 1) (print "st"))
    ((= ans 2) (print "nd"))
    ((= ans 3) (print "rd"))
    (else (print "th"))
)