(defun euler(sum xvalue a count high low)
(if (< a count)
(euler (+ sum
(/ high low))
xvalue
(+ a 1)
count
(* xvalue high 1.00)
(* a low ))
sum))
(setq sum 1)
(setq xvalue 1.0)
(setq a 2)
(setq count 10)
(setq high xvalue)
(setq low 1)
(euler sum xvalue a count high low)
(setq count 30)
(euler sum xvalue a count high low)