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