(require (lib "rscT.ss" "rscT"))

(define Q (make-schedule!))

(schedule-routine! 
 Q 
 (ceiling (utc!))
 (lambda (yield)
   (for-each! (lambda (n)
		(inform! n (yield 0.5)));(choose! (list 0.5 1.0)))))
	      (iota 12))))

(begin!
 (define U (ceiling (utc!)))
 (define T (make-tschedule! 120.0 0.0 U)))

(tschedule-routine! 
 T 
 (ceiling (utc->pulse T (utc!)))
 (lambda (yield)
   (for-each! (lambda (n)
		(inform! n (yield 1)));(choose! (list 1 2)))))
	      (iota 6))))