;; just in case anyone might find this useful.
;; this will make an hysteric REPL that continuously updates itself, 
;; without flooding your terminal or emacs csi-session

;; (thread-terminate! thread)
(define thread
  (thread-start!
   (lambda () (let loop ()
           (print* "\r" (current-milliseconds) " ")
           (thread-sleep! 0.111)
           (loop)))))

;; if it stops, something is blocking you!