Module Xml.W
type 'a t = 'a Xml.W.tval return : 'a -> 'a Xml.W.ttype ('a, 'b) ft = ('a, 'b) Xml.W.fttype 'a tlist = 'a Xml.W.tlistval nil : unit -> 'a Xml.W.tlistval singleton : 'a Xml.W.t -> 'a Xml.W.tlistval cons : 'a Xml.W.t -> 'a Xml.W.tlist -> 'a Xml.W.tlistval append : 'a Xml.W.tlist -> 'a Xml.W.tlist -> 'a Xml.W.tlistval map : ('a, 'b) Xml.W.ft -> 'a Xml.W.tlist -> 'b Xml.W.tlist