let get_categories xmls =
let f acc = function
Element (tag,atts,[PCData s])
when String.lowercase tag = "category"->
{ cat_name = s ;
cat_domain = get_opt_att atts "domain" ;
} :: acc
| _ -> acc
in
List.rev (List.fold_left f [] xmls)