sig
  val blank_document : float -> float -> int -> Pdf.t
  val blank_document_paper : Pdfpaper.t -> int -> Pdf.t
end