(define before (current-memory-use))
(collect-garbage)
(define after (current-memory-use))
(format "GC: ~a B -> ~a B" before after)