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