+extern "C" CAMLprim value caml_xml_tree_first_child(value tree, value id){
+ CAMLparam2(tree,id);
+ CAMLlocal1(res);
+ DPRINT("BEFORE!!!");
+ DPRINT(XMLTREE(tree)->flag);
+ DPRINT("ID is " << Int_val(id));
+ res = Val_int (XMLTREE(tree)->FirstChild(TREENODEVAL(id)));
+ DPRINT("AFTER!!!" << Int_val(res));
+ CAMLreturn(res);