let
xmls_of_categories l =
List
.map xml_of_category l