(define n (read)) (define a '()) (let loop((i 0)) (if (= i n) '() (begin (let ((p (read)) (q (read))) (set! a (cons (/ p q) a)) ) (loop (+ i 1)) ) ) ) (set! a (reverse (sort a))) (for-each (lambda (x) (print (numerator x) " " (denominator x))) a)