sig
  val ( ^=! ) : ('a, 'b) GapiLens.t -> 'b -> 'a -> unit * 'a
  val ( +=! ) : ('a, int) GapiLens.t -> int -> 'a -> unit * 'a
  val ( -=! ) : ('a, int) GapiLens.t -> int -> 'a -> unit * 'a
  val ( @=! ) : ('a, 'b list) GapiLens.t -> 'b list -> 'a -> unit * 'a
end