sig   type 'a obs   val const : '-> 'Note.Logr.obs   val app : ('-> 'b) Note.Logr.obs -> 'Note.Logr.obs -> 'Note.Logr.obs   val ( $ ) :     ('-> 'b) Note.Logr.obs -> 'Note.Logr.obs -> 'Note.Logr.obs   type t   val create : ?now:bool -> unit Note.Logr.obs -> Note.Logr.t   val force : Note.Logr.t -> unit   val destroy : Note.Logr.t -> unit   val hold : Note.Logr.t -> unit   val may_hold : Note.Logr.t option -> unit   val unhold_all : unit -> unit end