sig
  type t
  type data =
      (int, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
  val data : Image.BGRA.t -> Image.BGRA.data
end