val check_json : ParseTree.archetype -> unit