【初心者：LISP時間==五時間】
これだ・・・
(defun func(lst)
(dotimes(x (length lst) y)
(setq y(+ y (car lst)))
(setq lst (cdr lst))))