sig   val ( --> ) : ('a, 'b) BatHashtbl.t -> '-> 'b   val ( <-- ) : ('a, 'b) BatHashtbl.t -> 'a * '-> unit end