sig
  type channel
  type document
  val pretty :
    float ->
    int ->
    PPrintRenderer.RENDERER.channel ->
    PPrintRenderer.RENDERER.document -> unit
  val compact :
    PPrintRenderer.RENDERER.channel ->
    PPrintRenderer.RENDERER.document -> unit
end