(import scheme chicken)

(define (go! x max l)
  (if (= x max)
      l
      (go! (+ x 1) max (cons x l))))

(time (begin (go! 0 100000000 '()) 'x))

; csc -optimize-level 5 foo.scm
; ./foo -:s5m
; 7.675s CPU time, 2.116s GC time (major), 516/399 GCs (major/minor)

; ./foo -:s32k
; 6.01s CPU time, 1.432s GC time (major), 81171/65671 GCs (major/minor)