#!/usr/local/bin/sbcl --script
(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))))


(print (subseq '(0 1 2 3 4 5 6) 3))
(subseq "hello world" 3 5) => "lo"
(let ((a "hello world")) (setf (subseq a 3 5) "LO") a) => "helLO world"
(let ((a "hello world")) (setf (subseq a 3 5) "YYY") a) => "helYY world"