#lang racket

(define big-list
  (build-list #e7e7 values))

(define (reverse* a-list)
  (let repeat ((a-list a-list) (collect empty))
    (if (empty? a-list)
        collect
        (repeat (rest a-list)
                (cons (first a-list) collect)))))

(collect-garbage)
(time (reverse* big-list)
      (void))

(collect-garbage)
(time (reverse* big-list)
      (void))

(collect-garbage)
(time (reverse* big-list)
      (void))