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