(define cons
  (lambda (a b)
    (append b (list a))))

(define iota
  (lambda (n)
    (if (zero? n)
        null
        (cons (- n 1) (iota (- n 1))))))