;; IN: positive integer n
;; OUT: a list (n, n-1, n-2, ... 1)

(define (ints n)
  (if (= n 0) '()
      (cons n (ints (- n 1)))))