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