ikarus/src/test.ss

  (letrec ([f
     (lambda (i)
       (when (fx<= i 100000)
         (let ([x (list 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
                        0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)])
           (f (fx+ i 1)))))])
    (f 0)
    100)