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