let
assoc_to_keys l =
List
.map fst (!l)