#lang sicp

(define (reverse lst)
  (define (rev-aux lst acc)
    (if (null? lst)
        acc
        (rev-aux (cdr lst) (cons (car lst)
                                 acc))))
  (rev-aux lst '()))