sig
  type t
  type result
  val fprintf :
    Lm_make_printf.PrintfSig.t ->
    ('a, Lm_make_printf.PrintfSig.t, Lm_make_printf.PrintfSig.result)
    Pervasives.format -> 'a
end