(defun gen (x)
  (loop for i from 1 below (+ x 1) do
     (format t "~{~a~^-~}~%"
       (if (evenp i)
    (loop for b from i downto 1 collect b)
    (loop for b from 1 to i collect b)))))