Set up event queue IORef