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