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