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

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

(tschedule-at%! T 4 0 (lambda (p f) (inform! p) (f 1.0)))

(tschedule-clear! T)