sig
  type fmt
  exception Fmt_Error of string
  val __ : Vprint.fmt
  val _i : Vprint.fmt
  val _c : Vprint.fmt
  val _f : Vprint.fmt
  val _s : Vprint.fmt
  val _l : Vprint.fmt -> Vprint.fmt
  val _a : Vprint.fmt -> Vprint.fmt
  val _t : Vprint.fmt -> Vprint.fmt
  val _r : Vprint.fmt -> Vprint.fmt
  val _v : Vprint.fmt -> Vprint.fmt
  val _v0 : Vprint.fmt
  val _'v : Vprint.fmt -> Vprint.fmt
  val _'v0 : Vprint.fmt
  val _u : Vprint.fmt
  val _fun : Vprint.fmt -> Vprint.fmt
  val _obj : Vprint.fmt -> Vprint.fmt
  val _ref : Vprint.fmt -> Vprint.fmt
  val _lazy : Vprint.fmt -> Vprint.fmt
  val _l_ : Vprint.fmt
  val _a_ : Vprint.fmt
  val _t_ : Vprint.fmt
  val _r_ : Vprint.fmt
  val _v_ : Vprint.fmt
  val _'v_ : Vprint.fmt
  val _int : Vprint.fmt
  val _char : Vprint.fmt
  val _float : Vprint.fmt
  val _string : Vprint.fmt
  val _list : Vprint.fmt -> Vprint.fmt
  val _array : Vprint.fmt -> Vprint.fmt
  val _tuple : Vprint.fmt -> Vprint.fmt
  val _record : Vprint.fmt -> Vprint.fmt
  val _variant : Vprint.fmt -> Vprint.fmt
  val _variant0 : Vprint.fmt
  val _'variant : Vprint.fmt -> Vprint.fmt
  val _'variant0 : Vprint.fmt
  val _unit : Vprint.fmt
  val ( *~ ) : Vprint.fmt -> Vprint.fmt -> Vprint.fmt
  val ( // ) : Vprint.fmt -> Vprint.fmt -> Vprint.fmt
  val ( @. ) : (Vprint.fmt -> Vprint.fmt) -> Vprint.fmt -> Vprint.fmt
  val print : ?fmt:Vprint.fmt -> 'a -> unit
  val sprint : ?fmt:Vprint.fmt -> 'a -> string
  val print_all : ?fmt:Vprint.fmt -> 'a -> unit
  val sprint_all : ?fmt:Vprint.fmt -> 'a -> string Stream.t
end