sig val print : Buffer.t -> Json_type.t -> unit end