sig
  type t = {
    filename : string;
    relationship : string option;
    description : string option;
  }
  val portfolio : Pdf.t -> Cpdfportfolio.t list -> unit
end