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)