sig
  val stop_upon_sigbus : unit -> unit
  val stop_upon_sigsegv : unit -> unit
  val stop_upon_sigpipe : unit -> unit
  val stop_upon_exit : unit -> unit
  val stop_me_now : unit -> unit
  val segfault_me_now : unit -> unit
  val start_canary_thread :
    max_wait:Core.Std.Time.Span.t ->
    check_interval:Core.Std.Time.Span.t -> unit
  val obj_to_sexp : '-> Core.Std.Sexp.t
  val obj_to_string : '-> string
end