sig
  type img_list = Magick.images
  external new_image_list : unit -> Magick.ImgList.img_list
    = "caml_NewImageList"
  external destroy_image_list : Magick.ImgList.img_list -> unit
    = "caml_DestroyImageList"
  external append_image :
    Magick.ImgList.img_list -> Magick.image -> Magick.ImgList.img_list
    = "caml_AppendImageToList"
  external prepend_image :
    Magick.ImgList.img_list -> Magick.image -> Magick.ImgList.img_list
    = "caml_PrependImageToList"
  external get_first_image : Magick.ImgList.img_list -> Magick.image
    = "caml_GetFirstImageInList"
  external get_image : Magick.ImgList.img_list -> offset:int -> Magick.image
    = "caml_GetImageFromList"
  external length : Magick.ImgList.img_list -> int
    = "caml_GetImageListLength"
  external get_index : Magick.ImgList.img_list -> int
    = "caml_GetImageIndexInList"
end