#| BEGIN (Введите свое решение) |#
(define (make-rat n d) 
  (if (> (* n d) 0) (cons (abs n) (abs d))
  (cons (- (abs n)) (abs d))))

(define (numer x) (car x))
(define (denom x) (cdr x))

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