Resposta ao exercício 19

(defun produtorio (func a b)
  (if (> a b)
    1
    (* (funcall func a) (produtorio func (1+ a) b))))