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