open ml
type ('a , 'b) t
external create : <int> -> <('a , 'b) t>
external clear : <('a,'b) t> -> <>
external add : <('a,'b) t * 'a * 'b> -> <>
external find : <('a,'b) t * 'a> -> <'b>
external find_all : <('a,'b) t * 'a> -> <'b list>
external remove : <('a,'b) t * 'a> -> <>