type 'a t = 'a Xml.W.tval return : 'a -> 'a ttype ('a, 'b) ft = ('a, 'b) Xml.W.fttype 'a tlist = 'a Xml.W.tlistval nil : unit -> 'a tlistXml.Wtype 'a t = 'a Xml.W.tval return : 'a -> 'a ttype ('a, 'b) ft = ('a, 'b) Xml.W.fttype 'a tlist = 'a Xml.W.tlistval nil : unit -> 'a tlist