sig
  type logger = string -> unit
  val default : Pdfe.logger
  val logger : Pdfe.logger Stdlib.ref
  val suppress_adjacent_duplicates : bool Stdlib.ref
  val log : Pdfe.logger
  val logf : ('a -> string, unit, string) Stdlib.format -> 'a -> unit
end