Variant_choice.P
val name : string
val doc : string
type t
val to_string : t -> string
val of_string : string -> t
val choices : string list
val default : t