let
height = (ref (670.) : float
Pervasives
.ref)