module type Labeller = sig .. end
sig
end
type label
val next_label : unit -> label
unit -> label
val shower : label Show.show
label Show.show