sig type t val data : Image.BGRA.t -> Image.Data.t end