(gc #t)
(gc #f)
(system "free")
(define (app n)
        (if (> n 0)
            (cons n (app (- n 1)))
            '() ) )
(define a (app 10000000))
(display a)
(gc #t)
(gc #f)
(system "free")