let
xml_diff (xml1 :
Xml
.xml) (xml2 :
Xml
.xml) : string = string_of_diff (diff_of_xmls xml1 xml2)