Resposta ao exercício 34

(defun -racional (r1 r2)
  (racional (- (* (numerador r1) (denominador r2))
               (* (numerador r2) (denominador r1)))
            (* (denominador r1) (denominador r2))))

(defun *racional (r1 r2)
  (racional (* (numerador r1) (numerador r2))
            (* (denominador r1) (denominador r2))))

(defun /racional (r1 r2)
  (racional (* (numerador r1) (denominador r2))
            (* (denominador r1) (numerador r2))))