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