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