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