sig val of_json : string -> string -> Backtrace.t end