(defun tree (n)
  (format t "~@?☆~%~{~@?~{~[N~;i~;X~;J~;o~;%~;b~:;*~]~}~%~}~@?||~%"
	  (format nil "~~~dT" (- n 2))
	  (loop for i from 2 to (* 2 (- n 2)) by 2
			append (list (format nil "~~~dT" (- n (/ i 2) 1))
					     (loop repeat i collect (random 30))))
	  (format nil "~~~dT" (- n 2))))

(loop for i from 2 to 8
      do (tree i))