sig type t val create : int -> (string -> LO.Message.data array -> unit) -> LO.Server.t val recv : LO.Server.t -> unit end