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