let assoc_size l = 
    List.length (!l)