sig
  type t
  val add_hook :
    string -> (Misc.hook_info -> Misc.HookSig.t -> Misc.HookSig.t) -> unit
  val apply_hooks : Misc.hook_info -> Misc.HookSig.t -> Misc.HookSig.t
end