sig
  val create : ('a, 'b) Bigarray.kind -> int -> ('a, 'b) Lit.bigarray
  val get_v2 : (float, 'b) Lit.bigarray -> int -> Gg.v2
  val get_v3 : (float, 'b) Lit.bigarray -> int -> Gg.v3
  val get_v4 : (float, 'b) Lit.bigarray -> int -> Gg.v4
  val get_2d : ('a, 'b) Lit.bigarray -> int -> 'a * 'a
  val get_3d : ('a, 'b) Lit.bigarray -> int -> 'a * 'a * 'a
  val get_4d : ('a, 'b) Lit.bigarray -> int -> 'a * 'a * 'a * 'a
  val geti_2d : (int32, 'b) Lit.bigarray -> int -> int * int
  val geti_3d : (int32, 'b) Lit.bigarray -> int -> int * int * int
  val set_v2 : (float, 'b) Lit.bigarray -> int -> Gg.v2 -> int
  val set_v3 : (float, 'b) Lit.bigarray -> int -> Gg.v3 -> int
  val set_v4 : (float, 'b) Lit.bigarray -> int -> Gg.v4 -> int
  val set_2d : ('a, 'b) Lit.bigarray -> int -> 'a -> 'a -> int
  val set_3d : ('a, 'b) Lit.bigarray -> int -> 'a -> 'a -> 'a -> int
  val set_4d : ('a, 'b) Lit.bigarray -> int -> 'a -> 'a -> 'a -> 'a -> int
  val seti_2d : (int32, 'b) Lit.bigarray -> int -> int -> int -> int
  val seti_3d : (int32, 'b) Lit.bigarray -> int -> int -> int -> int -> int
end