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