let
assoc_size l =
List
.length (!l)