print (sprintf "opening %s [%s]"
tag (String.concat ";" (List.map fst attrs))));
end_element = Some (fun tag -> print ("closing " ^ tag));
print (sprintf "opening %s [%s]"
tag (String.concat ";" (List.map fst attrs))));
end_element = Some (fun tag -> print ("closing " ^ tag));