(import (chicken string)
        (chicken gc)
        (chicken io))

(let loop ()
  (print (conc "Memory statistics: " (memory-statistics)))
  (eval '(begin (import (chicken string)) (print "Hello.")))
  (read-line)
  (loop))