let
safe_main main =
try
main ()
with
Failure
s
|
Sys_error
s
->
prerr_endline s;
exit 1