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
end