(use tcp srfi-18)
(thread-start!
 (lambda ()
   (let loop ()
     (print "running")
     (thread-sleep! 1)
     (loop))))

(thread-sleep! 1.5)
(print "\nstart resolving")
(tcp-connect "uib.no" 80)
(print "\ndone resolving")
(thread-sleep! 1)