module Label: sig .. end
sig
end
type t = string
string
type desc =
|
Nolabel
Labelled of string
Optional of string
val explode : t -> desc
t -> desc
val nolabel : t
t
val labelled : string -> t
string -> t
val optional : string -> t