sig
  val load : string -> string * Index8.t
  val save : string -> string -> Index8.t -> unit
  val create : Images.t -> Index8.t
end