sig
  val find :
    ('a, 'b, [< `Read | `Write > `Read ]) Extlib.ExtHashtbl.Hashtbl.Cap.t ->
    'a -> 'b option
end