(print (loop for i from 1 to 30
 collect
 (cond
  ((= 0 (mod i 15)) "FizzBuzz")
  ((= 0 (mod i 3)) "Fizz")
  ((= 0 (mod i 5)) "Buzz")
  (t i))))

 (defun summit (lst)
          (let ((x (car lst)))
         (cond ((lisp lst) 0)
                      ((null x) (summit (cdr lst))
                 ( t (+ x (summit (cdr lst)))))))

(Summit '(nil 8 3 nil 2 nil))