sig   type exec = [ `Driver | `Instance ]   type setup   val b0_dir : B0_driver.Driver.setup -> B0_driver.B0_dir.t   val color : B0_driver.Driver.setup -> B0.Tty.cap option   val verbosity : B0_driver.Driver.setup -> B0.Log.level option   val exec : B0_driver.Driver.setup -> B0_driver.Driver.exec   type cmd =       (B0_driver.Driver.setup -> int) Cmdliner.Term.t * Cmdliner.Term.info *       B0_driver.Driver.exec   type t   val create :     name:string ->     version:string ->     libs:string list -> B0_driver.Driver.cmd list -> B0_driver.Driver.t   val set : B0_driver.Driver.t -> unit   val driver_main : unit -> unit   val instance_main : unit -> unit end