let
xmin = (ref (-5.) : float
Pervasives
.ref)