sig
  val print_list :
    (Stdlib.Format.formatter -> unit -> unit) ->
    (Stdlib.Format.formatter -> 'a -> unit) ->
    Stdlib.Format.formatter -> 'a list -> unit
  val comma : Stdlib.Format.formatter -> unit -> unit
  val semi : Stdlib.Format.formatter -> unit -> unit
  val space : Stdlib.Format.formatter -> unit -> unit
  val newline : Stdlib.Format.formatter -> unit -> unit
end