(bind-func beat_test (lambda (beat:Rational) (println "BEAT:" beat " SCHED:" (bs1.beat:Rational)) (xtm_play_note (now) fmsynth (+ 80.0 (* (random) 800.0)) 0.2 100 0 null) (sched bs1 (+ 1/1 beat) beat_test:[void,Rational]*) void))