(let*
  ((reverse (lambda (self sexp acc)
    (cond
      ((equal? sexp (quote ()))
        acc)
      ((list? sexp)
        (self self (cdr sexp) (cons (car sexp) acc)))
      (else
        (quote ()))))))
  (lambda (x) (reverse reverse x (quote ()))))