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