module type OBSERVER = sig .. end
sig
end
type t
val compare : t -> t -> int
t -> t -> int
val string_of : t -> string
t -> string
val fire : t -> unit
t -> unit