let getq e l = try Some (assq e l) with Not_found -> None