(import (scheme base)
        (scheme write)
        (srfi 1))

(include "tmc-part1.scm")

(SPAWN (lambda ()
         (display "Hey!\n")
         (YIELD)
         (display "Let's\n")))

(SPAWN (lambda ()
         (display "Ho!\n")
         (YIELD)
         (display (CHOOSE "Go!\n" "Wait!\n"))))
(EXPLORE)