(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))
(display (f 9))
(display (f 10))
(display (f 11))
(display (f 12))
(display (f 13))
(display (f 14))
(display (f 15))
(display (f 16))
(display (f 17))
(display (f 18))
(display (f 19))
(display (f 20))
(display (f 21))
(display (f 22))
(display (f 23))
(display (f 24))
(display (f 25))
(display (f 26))
(display (f 27))
(display (f 28))
(display (f 29))
(display (f 30))
(display (f 31))
(display (f 32))