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