let assoc_to_list l = 
    List.map snd (!l)