let get_opt_att atts name = let name = String.lowercase name in try Some (snd (List.find (fun (s, _) -> String.lowercase s = name) atts) ) with Not_found -> None