Resposta ao exercício 26
(defun f (x y) (let ((temp (+ 1 (* (quadrado x) y)))) (+ (* (quadrado temp) x) (* temp y))))