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