let
width = (ref (805.) : float
Pervasives
.ref)