sig
  val redact : Pdf.t -> path:(float * float) list -> int list -> Pdf.t
  val apply : Pdf.t -> int list -> unit
  val apply_type : Pdf.t -> string -> int list -> unit
  val show_bounding_boxes :
    fast:bool ->
    shape:(float * float * float * float) option ->
    light:bool -> Pdf.t -> int list -> Pdf.t
end