Nonstd.List.Assoc.get

let get e l = try Some (assoc e l) with Not_found -> None