let message_sender = (ref false : bool Pervasives.ref)