list-pro.scm

(define (build-list x)
  (define (range a b)
    (if (> a b) '()
        (cons a (range (+ a 1) b))))
  (range 1 x))

(define (my-cool-reverse l)
  (define (my-reverse l1 l2)
    (if (null? l1)
        l2
        (my-reverse (cdr l1)
                    (cons (car l1) l2))))
  (my-reverse l '()))