[helm.git] / helm / DEVEL / lablgtk_gtkmathview / lablgtk-20000829_gtkmathview-0.2.0 / minidom / test.ml

let doc = Minidom.doc_load "test.xml"

let root = Minidom.doc_get_root_node doc

let Some root_name = Minidom.node_get_name root
;;

print_string (Minidom.string_of_mDOMString root_name)