Cryptography.Snark_work_histogram
type t
val observe : t -> float -> unit
val buckets : t -> int list