sig
  type t
  val system : Switch.t
  val defaults : Switch.t list
  val of_string : string -> Switch.t
  val to_string : Switch.t -> string
  val equal : Switch.t -> Switch.t -> bool
  val json : Switch.t Jsont.codec
  val pp : Switch.t Fmt.t
end