(define (print-rat x)
(newline)
(display (numer x))
(display "/")
(display (denom x)))