module Tree: sig .. end
sig
end
val observe : ?period:int -> string -> (unit -> Protocol.variant) -> unit
?period:int -> string -> (unit -> Protocol.variant) -> unit