(define (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(display (f 1))
(display (f 2))
(display (f 3))
(display (f 4))
(display (f 5))
(display (f 6))
(display (f 7))
(display (f 8))