val write : out_channel -> bool -> Pdf.t -> unit