(define thread
  (thread-start!
   (lambda ()
     (let loop ()
       (print "hi")
       (thread-sleep! 1)
       (loop)))))