external saveResultToChannel:
  outchan: out_channel ->
  result: TDocument.t ->
  stylesheet: processed_stylesheet ->
    unit
  = "ml_saveResultToChannel"