sig
  val find : ('a, 'b) BatHashtbl.t -> 'a -> 'b option
  val modify :
    'a ->
    ('b -> 'b) -> ('a, 'b) BatHashtbl.t -> (unit, exn) BatPervasives.result
end