type t

val create : unit -> t
val get : t -> string
val printf : t -> ('a, Format.formatter, unit) format -> 'a