sig val make : ?addr:string -> ?port:int -> unit -> XmlRPCServer.t end