#| BEGIN (Write your solution here) |#
(define (make-rat n d)
  (let* ((g (gcd n d))
         (rn (abs (/ n g)))
         (rd (abs (/ d g))))
    (if (>= (* n d) 0)
        (cons rn rd)
        (cons (- rn) rd))))
#| END |#