Make.Register
Version_i : sig ... end
val rpc : (Version_i.query, Version_i.response, Version_i.error) Async_rpc_kernel.Rpc.Pipe_rpc.t