Xml_wrap
module type T = sig ... end
module type NoWrap = T with type 'a t = 'a and type 'a tlist = 'a list and type (-'a, 'b) ft = 'a -> 'b
module NoWrap : NoWrap