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