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