let
infos_zones = (ref []: ((float * float) * float list) list
Pervasives
.ref)