sig val load : string -> string * OImages.index8 val save : string -> string -> OImages.index8 -> unit val create : OImages.oimage -> OImages.index8 end