sig   val ( --> ) : 'a BatIMap.t -> int -> 'a   val ( <-- ) : 'a BatIMap.t -> int * 'a -> 'a BatIMap.t end