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