(define clock-set-cycle (lambda (bpm cycle) (io:osc:send (now) *toplap-clock-server* "/clock/cycle/set" (rational->n beat) (rational->d beat) cycle)))