Resposta ao exercício 14

(defun simetrico (x)
  (simetrico-aux x x 0 0))

(defun simetrico-aux (x+ x- -x+ -x-) (cond ((zerop x+) -x+) ((zerop x-) -x-) (t (simetrico-aux (1+ x+) (1- x-) (1+ -x+) (1- -x-)))))