let get_item_desc xmls =
  try
    match List.find (find_ele_pred desc_tag) xmls with
      Element (_,atts,[PCData s]) -> Some s
    | _ -> None
  with
    Not_found ->
      None