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