sig
type behavior = [ `Default | `Handle of Signal.t -> unit | `Ignore ]
val signal : Signal.t -> Signal.Expert.behavior -> Signal.Expert.behavior
val set : Signal.t -> Signal.Expert.behavior -> unit
val handle : Signal.t -> (Signal.t -> unit) -> unit
end