(bind-func clock_test_a
(lambda (time:double)
(let ((tt:double (cs1.time)))
(println "TIME1:" time ":" (clock_clock) ":" (floor tt)))
(xtm_play_note (now) fmsynth (+ 400.0 (* (random) 1200.0)) 0.2 1000 0 null)
(sched cs1 (+ 1.0 time) clock_test_a:[void,double]*)
void))