module type S4 = sig .. end
sig
end
type ('a, 'b, 'c, 'd) t
('a, 'b, 'c, 'd)
val name : string
string