Parameter String_choice.P

val name : string
val doc : string
val default : string
val choices : string list