gistfile1.rkt

#lang racket/load

(define (memory)
  (for ((i (in-range 10)))
    (collect-garbage))
  (define n (current-memory-use))
  (for ((i (in-range 10)))
    (collect-garbage))
  n)

(define m1 (memory))

(for ([i (in-range 100)])
  (define i-sym (string->symbol (number->string i)))
  #`'#,i-sym)

(define m2 (memory))

(displayln m1)
(displayln m2)

gistfile2.txt

23243320
24479128