let incomming_events = (ref [] : string list Pervasives.ref)