let get_att name l =
  try Some (List.assoc name l)
  with Not_found -> None