let find f tree = let rec aux { content = t ; children = l } = if f t l then node t l else auxaux l and auxaux = function | [] -> raise Not_found | hd::tl -> try aux hd with Not_found -> auxaux tl in aux tree