Resposta ao exercício 10

(defun igual? (x y)
  (cond ((zerop x) (zerop y))
        ((zerop y) nil)
        (t (igual? (1- x) (1- y)))))