let launch() =
  while true do
    match mon_execvp "sleep" [| "60" |] with
      WEXITED 0 -> once ()
    | _ -> exit 1
  done;;