(use srfi-18)

(define (a)
	(print "A:" (current-seconds))
	(a))

(define (b)
	(print "B:" (current-seconds))
	(b))

(thread-start! (make-thread b "B"))

(a)