sig
  type bounding_box = (int * int * int * int) option
  val load : string -> Images.load_option list -> Images.t
  val save : string -> Images.save_option list -> Images.t -> unit
  val load_ps :
    string -> Ps.bounding_box -> Images.load_option list -> Images.t
  val get_bounding_box : string -> Ps.bounding_box
end