module type Typed_simple_printer =sig
..end
type 'a
elt
type
doc
val print_list : output:(string -> unit) ->
?encode:(string -> string) ->
'a elt list -> unit
val print : output:(string -> unit) ->
?encode:(string -> string) ->
?advert:string -> doc -> unit