type bucket('a) =
| Empty
| Cons of {
mutable key: 'a,
mutable next: bucket('a),
}
;
type t('a) = {
mutable size: int,
mutable data: array(bucket('a)),
initial_size: int,
};
let create: int => t('a);
let clear: t('a) => unit;
let reset: t('a) => unit;
let length: t('a) => int;
let resize: (t('a) => 'b => int) => t('a) => unit;
let iter: t('a) => ('b => 'c) => unit;
let fold: t('a) => 'b => ('c => 'd => 'e) => 'f;
let to_list: t('a) => list('b);
let small_bucket_mem: ('a => 'b => bool) => 'c => bucket('d) => bool;
let remove_bucket:
t('a) =>
int =>
'b =>
prec:bucket('c) =>
bucket('d) =>
('e => 'f => bool) =>
unit;