(defun sum(n f)
 (cond
  ((> n 0) (+ (FUNCALL f n) (sum (- n 1) f)))
  (null 0)
 )
)

(sum 5 '(LAMBDA (x) (/ 1 (sum x '(LAMBDA (x) (sin x)))    )))
(system)