#!/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))))


(let ((n 15))
(dotimes (i n)
(dotimes (j (- i 1))
(print (+ i 1))
(print (+ j 2)))))