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