functor (Xml : Xml_sigs.T->
  sig module type T = MakeWrapped(Xml_wrap.NoWrap)(Xml).T end