open Sys;;
let system_test () =
  set_signal sigint (Signal_handle (fun x -> print_endline "SIGINT received"));
  let _ = mon_system "sleep 10" in
  print_endline "mon_system finished";
  Pervasives.flush Pervasives.stdout;
  sleep 10;
  print_endline "sleep finished";;

handle_unix_error  system_test ();;