(let* ((sym (make-symbol ""))
       (osym sym))
  (dotimes (i 1000000000)
    (set sym (make-symbol ""))
    (setq sym (symbol-value sym))
    (message "%d" i)
    (when (= 0 (logand i (1+ i)))
      (garbage-collect))))