sig
  val print :
    ?allow_nan:bool -> ?recursive:bool -> Buffer.t -> Json_type.t -> unit
end