module type S = sig .. end
sig
end
type phantom
type real
type default = (real, phantom) Default.t
(real, phantom) Default.t
val default : default
default