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