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