(define N (read )) (define x (read)) (let foo ((a (- N 2 ) ) ) (if (= a 0 ) '() (let ()(read)(foo ( - a 1 ) ) ))) (define y (read)) (let ((p x )(q y )) (let ((r (/ x y ))) (display (denominator r)) (display "/" ) (display (numerator r )) (newline)))