Resposta ao exercício 15
(defun soma1 (a b) (if (zerop a) b (1+ (soma1 (1- a) b))))