let xmax = (ref (105.) : float Pervasives.ref)