(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 31))
(display (f 32))
(display (f 33))
(display (f 34))
(display (f 35))