(use srfi-18 posix)

(define (text) "Hello world!")

(define (loop)
  (print (text))
  (sleep 1)
  (loop))

(thread-start! loop)