; third biggest number

(define (third-biggest-number)
  (let loop ((n 10) (xs (list)))
    (cond ((positive? n)
            (display "Enter a number: ")
            (loop (- n 1) (cons (read) xs)))
          (else
            (display "The third biggest number is ")
            (display (caddr (sort xs >))) (newline)))))

(third-biggest-number)