module Crit_bit:sig..end
type 'data t
val empty : 'data tval find : 'data t -> string -> 'data optionval add : 'data t -> key:string -> data:'data -> 'data tval remove : 'data t -> string -> 'data tval iter : 'data t -> f:(key:string -> data:'data -> unit) -> unitval map : 'data t -> f:('data -> 'b) -> 'b tval fold : 'data t -> init:'b -> f:(key:string -> data:'data -> 'b -> 'b) -> 'b