+let () = Printexc.record_backtrace true
+
+let ((_, _, script_mode, _, stream_mode, _, _, _) as setup) =
+ try start_up ()
+ with
+ | Failure msg ->
+ prerr_endline msg;
+ Printexc.print_backtrace stderr;
+ exit 1
+ | exn ->
+ prerr_endline (s_ "Error" ^ ": " ^ Printexc.to_string exn);
+ Printexc.print_backtrace stderr;
+ exit 1
+
+let () =