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