val slot_spec : unit ‑> (slot ‑> 'm, 'm) Core.Command.Spec.t
type main
val main_spec : (foreground:bool ‑> main, unit ‑> unit) Core.Command.Spec.t
val main : slot ‑> main