Module type Named_intf.S4

module type S4 = sig .. end

type ('a, 'b, 'c, 'd) t 
val name : string