external poll : 'a -> 'b -> 'c = "ocaml_poll"
type event = POLLIN | POLLPRI | POLLOUT | POLLERR | POLLHUP | POLLNVAL
let _ =
poll [
(10, [POLLIN; POLLOUT]);
(20, [POLLOUT])
] ()