Resposta ao exercício 11
(defun negativo (x) (if (zerop x) x (1- (negativo (1- x)))))