(bind-func osc_send_two_double
(lambda (host ip address a:double b:double)
(let ((types ",dd")
(typesl 4)
(mod (modulo (+ (strlen address) 1) 4))
(addressl (+ (+ (strlen address) 1)
(if (= 0 mod) 0 (- 4 mod))))