RosettaCodeData/Task/XML-DOM-serialization/Oz/xml-dom-serialization-1.oz

declare
  proc {Main}
   DOM = root(element("Some text here"))
  in
     {System.showInfo {Serialize DOM}}
  end
  ...