let
get_att name l =
try
Some
(
List
.assoc name l)
with
Not_found
->
None