Основа работы с Лиспом, Реализовать две пользовательские функции UF1 и UF2 Опции

[dron4ik]

Реализовать с поощью средств Лиспа две пользовательские функции UF1 и UF2. Связать с символлом UFR двухэлементный список, элементами которого будут результаты вычисления соотвественно первой и второй пользовательской функций, полученные при произвольном значении их аргументов. Связать с символом х1 список, обратный списку UFR; с символом х2 - длину списка UFR, а с символом х3 - результат сложения элементов списка UFR.

UF1(x)=3e*e + sin(x-pi*pi );
UF2(x)= tg(x)*ctg(x+pi/2)----это выражение полностью под знаком корня.

вот код проги но выходит ошибка unbound variable - E --не понимаю в чем дело..

(defun uf1 (x)
(+ (* 3 e e)
(sin (- x (* pi pi)))))


(defun uf2 (x)
(sqrt
(/ (tan x)
(tan (+ x (/ pi 2))))))


(defun TOufr (x y)
(setq ufr (list (eval(uf1 x)) (eval(uf2 y))))

)

(defun x1x2x3 ()
(setq x1 (reverse ufr))
(setq x2 (length ufr))
(setq x3 (+ (nth 0 ufr) (nth 1 ufr)))
)