sig
  val show_composition : int -> bool -> Pdf.t -> unit
  val show_composition_json_blob : int -> Pdf.t -> Pdfio.bytes
end