+ output_string oc " ];;\n";
+ output_string oc "let _ =\n";
+ output_string oc " List.iter\n";
+ output_string oc " (fun (macro, utf8) ->\n";
+ output_string oc " Hashtbl.replace macro2utf8 macro utf8;\n";
+ output_string oc " Hashtbl.replace utf82macro utf8 macro)\n";
+ output_string oc " data;;\n";