sig
  val slot_spec :
    unit -> (Core_service_command.slot -> 'm, 'm) Core_command.Spec.t
  type main
  val main_spec :
    (foreground:bool -> Core_service_command.T.main, unit)
    Core_command.Spec.t
  val main : Core_service_command.slot -> Core_service_command.T.main
end