let xmls_of_categories l = List.map xml_of_category l