let
click = (ref (-1) : int
Pervasives
.ref)