int -> [[> 'a Cf_poll.state_t ]] Cf_poll.event