let attr_value id l =
  try List.assoc id l
  with Not_found -> None