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