Resposta ao exercício 19
(defun produtorio (func a b) (if (> a b) 1 (* (funcall func a) (produtorio func (1+ a) b))))