(bind-func clock_test_b
(lambda (time:double)
(let ((tt:double (cs2.time)))
(println "TIME2:" time ":" (clock_clock) ":" (floor tt)))
(xtm_play_note (now) fmsynth (+ 80.0 (* (random) 300.0)) 0.2 1000 0 null)
(sched cs2 (+ 1.0 time) clock_test_b:[void,double]*)
void))