;;; this is _very_ useful if you want to see if you're leaking memory somewhere:

(thread-start!
 (lambda ()
   (let loop ()
     (print "memory-statistics " (memory-statistics) "   (length state): " (length state))
     (flush-output)
     (thread-sleep! 1)
     (loop))))