let
initialize () =
Sys
.set_signal
Sys
.sigchld (
Sys
.
Signal_handle
sigchld_handle)