import nova.Store.Clause;
         
import nova.Store.Place;
         
import nova.Store.Skeleton;
         
import nova.Store.Cache;
         
import nova.Store.Compound;
         

         
import nova.Machine.Goal;
         

         
import java.math.BigInteger;
         

         
import static nova.Store.UNDEF_OBJ;
         
import static nova.Store.make_defined;
         
import static nova.Store.add;
         

         
import static nova.Machine.run;
         

         
/**
         
 * Warranty & Liability
         
 * To the extent permitted by applicable law and unless explicitly
         
 * otherwise agreed upon, XLOG Technologies AG makes no warranties
         
 * regarding the provided information. XLOG Technologies AG assumes
         
 * no liability that any problems might be solved with the information
         
 * provided by XLOG Technologies AG.
         
 * <p/>
         
 * Rights & License
         
 * All industrial property rights regarding the information - copyright
         
 * and patent rights in particular - are the sole property of XLOG
         
 * Technologies AG. If the company was not the originator of some
         
 * excerpts, XLOG Technologies AG has at least obtained the right to
         
 * reproduce, change and translate the information.
         
 * <p/>
         
 * Reproduction is restricted to the whole unaltered document. Reproduction
         
 * of the information is only allowed for non-commercial uses. Selling,
         
 * giving away or letting of the execution of the library is prohibited.
         
 * The library can be distributed as part of your applications and libraries
         
 * for execution provided this comment remains unchanged.
         
 * <p/>
         
 * Restrictions
         
 * Only to be distributed with programs that add significant and primary
         
 * functionality to the library. Not to be distributed with additional
         
 * software intended to replace any components of the library.
         
 * <p/>
         
 * Trademarks
         
 * Jekejeke is a registered trademark of XLOG Technologies AG.
         
 */
         

         
public final class Streams {
         
    public static void boot5() {
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"nl", 0})}));
         
        add("nl", 0, new Clause(1, new Object[]{}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-2)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 10}), new Skeleton(new Cache("flush_output"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"nl", 1})}));
         
        add("nl", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 10}), new Skeleton(new Cache("flush_output"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"flush_output", 0})}));
         
        add("flush_output", 0, new Clause(1, new Object[]{}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-2)}), new Skeleton(new Cache("flush_output"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"put_code", 1})}));
         
        add("put_code", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-3)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"get_code", 1})}));
         
        add("get_code", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_input"), new Object[]{new Place(-3)}), new Skeleton(new Cache("get_code"), new Object[]{new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"get_code", 2})}));
         
        add("get_code", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("os_get_code"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("get_code", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_read_buffer"), new Object[]{new Place(1)}), new Skeleton(new Cache("os_get_code"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("get_code", 2, new Clause(1, new Object[]{new Place(-1), new Place(-2)}, new Object[]{new Skeleton(new Cache("="), new Object[]{-1, new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"peek_code", 1})}));
         
        add("peek_code", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_input"), new Object[]{new Place(-3)}), new Skeleton(new Cache("peek_code"), new Object[]{new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"peek_code", 2})}));
         
        add("peek_code", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("os_peek_code"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("peek_code", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_read_buffer"), new Object[]{new Place(1)}), new Skeleton(new Cache("os_peek_code"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("peek_code", 2, new Clause(1, new Object[]{new Place(-1), new Place(-2)}, new Object[]{new Skeleton(new Cache("="), new Object[]{-1, new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_buffer", 1})}));
         
        add("sys_read_buffer", 1, new Clause(3, new Object[]{new Place(-3)}, new Object[]{new Skeleton(new Cache("os_stream_flags"), new Object[]{new Place(1), new Place(-4)}), new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 2}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("os_read_promise"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$YIELD"), new Object[]{new Place(1)})}, 0, UNDEF_OBJ));
         
        add("sys_read_buffer", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("os_read_sync"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"get_atom", 2})}));
         
        add("get_atom", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("current_input"), new Object[]{new Place(-4)}), new Skeleton(new Cache("get_atom"), new Object[]{new Place(2), new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"get_atom", 3})}));
         
        add("get_atom", 3, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("get_compress"), new Object[]{new Place(0), new Place(-5)}), new Skeleton(new Cache("sys_get_atom"), new Object[]{new Place(3), new Place(1), new Place(0), new Place(-2)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(2), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_atom", 4})}));
         
        add("sys_get_atom", 4, new Clause(2, new Object[]{-1, new Place(-1), new Place(-1), new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{"[]", new Place(1)})}, 0, -1));
         
        add("sys_get_atom", 4, new Clause(3, new Object[]{new Place(-3), new Place(1), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Skeleton(".", new Object[]{new Place(1), "[]"}), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_get_atom", 4, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Skeleton(".", new Object[]{new Place(0), new Place(-2)})}, new Object[]{new Skeleton(new Cache("get_compress"), new Object[]{new Place(2), new Place(-5)}), new Skeleton(new Cache("sys_get_atom"), new Object[]{new Place(3), new Place(1), new Place(2), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"get_compress", 2})}));
         
        add("get_compress", 2, new Clause(4, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("os_stream_flags"), new Object[]{new Place(0), new Place(-4)}), new Skeleton(new Cache("get_code"), new Object[]{new Place(0), new Place(-5)}), new Skeleton(new Cache("sys_get_compress"), new Object[]{new Place(3), new Place(2), new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_compress", 4})}));
         
        add("sys_get_compress", 4, new Clause(2, new Object[]{13, new Place(-1), new Place(-1), new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{10, new Place(1)})}, 0, 13));
         
        add("sys_get_compress", 4, new Clause(4, new Object[]{10, new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(1), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("get_compress"), new Object[]{new Place(2), new Place(3)})}, 0, 10));
         
        add("sys_get_compress", 4, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1), new Place(0)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"put_atom", 1})}));
         
        add("put_atom", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-3)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"write", 1})}));
         
        add("write", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-3)}), new Skeleton(new Cache("sys_write_term"), new Object[]{new Place(1), new Place(0), "[]"})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"write", 2})}));
         
        add("write", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_write_term"), new Object[]{new Place(0), new Place(1), "[]"})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"writeq", 1})}));
         
        add("writeq", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-3)}), new Skeleton(new Cache("sys_write_term"), new Object[]{new Place(1), new Place(0), new Compound(".", new Object[]{new Compound("numbervars", new Object[]{"true"}), new Compound(".", new Object[]{new Compound("quoted", new Object[]{"true"}), "[]"})})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"writeq", 2})}));
         
        add("writeq", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_write_term"), new Object[]{new Place(0), new Place(1), new Compound(".", new Object[]{new Compound("numbervars", new Object[]{"true"}), new Compound(".", new Object[]{new Compound("quoted", new Object[]{"true"}), "[]"})})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"write_canonical", 1})}));
         
        add("write_canonical", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-3)}), new Skeleton(new Cache("sys_write_term"), new Object[]{new Place(1), new Place(0), new Compound(".", new Object[]{new Compound("quoted", new Object[]{"true"}), new Compound(".", new Object[]{new Compound("ignore_ops", new Object[]{"true"}), "[]"})})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"write_canonical", 2})}));
         
        add("write_canonical", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_write_term"), new Object[]{new Place(0), new Place(1), new Compound(".", new Object[]{new Compound("quoted", new Object[]{"true"}), new Compound(".", new Object[]{new Compound("ignore_ops", new Object[]{"true"}), "[]"})})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"write_term", 2})}));
         
        add("write_term", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-4)}), new Skeleton(new Cache("sys_write_term"), new Object[]{new Place(2), new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"write_term", 3})}));
         
        add("write_term", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_write_term"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"read", 1})}));
         
        add("read", 1, new Clause(3, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_input"), new Object[]{new Place(-3)}), new Skeleton(new Cache("get_code"), new Object[]{new Place(1), new Place(-4)}), new Skeleton(new Cache("sys_read_term"), new Object[]{new Place(2), new Place(1), "[]", new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"read", 2})}));
         
        add("read", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("get_code"), new Object[]{new Place(0), new Place(-4)}), new Skeleton(new Cache("sys_read_term"), new Object[]{new Place(2), new Place(0), "[]", new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"read_term", 2})}));
         
        add("read_term", 2, new Clause(4, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("current_input"), new Object[]{new Place(-4)}), new Skeleton(new Cache("get_code"), new Object[]{new Place(2), new Place(-5)}), new Skeleton(new Cache("sys_read_term"), new Object[]{new Place(3), new Place(2), new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"read_term", 3})}));
         
        add("read_term", 3, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("get_code"), new Object[]{new Place(0), new Place(-5)}), new Skeleton(new Cache("sys_read_term"), new Object[]{new Place(3), new Place(0), new Place(2), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"file_property", 2})}));
         
        add("file_property", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(2)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_prop_map"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("member"), new Object[]{new Place(-2), new Compound(".", new Object[]{"last_modified", new Compound(".", new Object[]{"real_path", new Compound(".", new Object[]{"type", "[]"})})})}), new Skeleton(new Cache("ir_object_current"), new Object[]{new Place(1), new Place(0), new Place(-3)}), new Skeleton(new Cache("=.."), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(1), "[]"})})})}, 0, UNDEF_OBJ));
         
        add("file_property", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("=.."), new Object[]{new Place(1), new Skeleton(".", new Object[]{new Place(-3), new Skeleton(".", new Object[]{new Place(-4), "[]"})})}), new Skeleton(new Cache("sys_prop_map"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("ir_object_current"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_prop_map", 2})}));
         
        add("sys_prop_map", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Compound(new Cache("current_prolog_flag"), new Object[]{"prop_async", "on"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("os_prop_promise"), new Object[]{new Place(1), new Place(2), new Place(-4)}), new Skeleton(new Cache("$YIELD"), new Object[]{new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_prop_map", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("os_prop_sync"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_multifile_safe"), new Object[]{"strings", 3})}));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"strings", 3})}));
         
        add("strings", 3, new Clause(0, new Object[]{"evaluation_error.float_overflow", "de", "Die Funktion überschreitet hier den Gleitpunktzahlbereich."}, new Object[]{}, -1, "evaluation_error.float_overflow"));
         
        add("strings", 3, new Clause(0, new Object[]{"evaluation_error.undefined", "de", "Die Funktion ist hier undefiniert."}, new Object[]{}, -1, "evaluation_error.undefined"));
         
        add("strings", 3, new Clause(0, new Object[]{"evaluation_error.zero_divisor", "de", "Nulldivision."}, new Object[]{}, -1, "evaluation_error.zero_divisor"));
         
        add("strings", 3, new Clause(0, new Object[]{"representation_error.int", "de", "Unerlaubte Int-Ganzzahl (nicht zwischen - 2^31 und 2^31-1)."}, new Object[]{}, -1, "representation_error.int"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.prolog_flag", "de", "Argument sollte ein Flag sein, gefunden ~."}, new Object[]{}, -1, "domain_error.prolog_flag"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.flag_value", "de", "Argument sollte ein Flagwert sein, gefunden ~."}, new Object[]{}, -1, "domain_error.flag_value"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.not_less_than_zero", "de", "Argument sollte positiv oder 0 sein, gefunden ~."}, new Object[]{}, -1, "domain_error.not_less_than_zero"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.operator_priority", "de", "Argument sollte ein Operatorlevel sein (kleiner oder gleich 1200), gefunden ~."}, new Object[]{}, -1, "domain_error.operator_priority"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.operator_specifier", "de", "Argument sollte ein Operatormode sein (fx, fy, xfx, yfx, xfy, xf, yf), gefunden ~."}, new Object[]{}, -1, "domain_error.operator_specifier"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.atom", "de", "Argument sollte Atom sein, gefunden ~."}, new Object[]{}, -1, "type_error.atom"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.number", "de", "Argument sollte Zahl sein, gefunden ~."}, new Object[]{}, -1, "type_error.number"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.integer", "de", "Argument sollte Ganzzahl sein, gefunden ~."}, new Object[]{}, -1, "type_error.integer"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.callable", "de", "Argument sollte aufrufbar sein (Atom oder Verbund), gefunden ~."}, new Object[]{}, -1, "type_error.callable"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.atomic", "de", "Argument sollte atomar sein, gefunden ~."}, new Object[]{}, -1, "type_error.atomic"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.list", "de", "Argument sollte Liste sein ([] oder [_|_]), gefunden ~."}, new Object[]{}, -1, "type_error.list"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.evaluable", "de", "Argument sollte berechenbaren Funktor haben, gefunden ~."}, new Object[]{}, -1, "type_error.evaluable"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.character", "de", "Argument sollte Zeichen sein, gefunden ~."}, new Object[]{}, -1, "type_error.character"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.pair", "de", "Argument sollte Paar sein (_-_), gefunden ~."}, new Object[]{}, -1, "type_error.pair"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.predicate_indicator", "de", "Argument sollte Prädikatspezifikation sein ( _/_), gefunden ~."}, new Object[]{}, -1, "type_error.predicate_indicator"));
         
        add("strings", 3, new Clause(0, new Object[]{"evaluation_error.float_overflow", "", "The function overflows the float range here."}, new Object[]{}, -1, "evaluation_error.float_overflow"));
         
        add("strings", 3, new Clause(0, new Object[]{"evaluation_error.undefined", "", "The function is undefined here."}, new Object[]{}, -1, "evaluation_error.undefined"));
         
        add("strings", 3, new Clause(0, new Object[]{"evaluation_error.zero_divisor", "", "Division by zero."}, new Object[]{}, -1, "evaluation_error.zero_divisor"));
         
        add("strings", 3, new Clause(0, new Object[]{"representation_error.int", "", "Illegal int integer (not between - 2^31 and 2^31-1)."}, new Object[]{}, -1, "representation_error.int"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.prolog_flag", "", "Argument should be a flag, found ~."}, new Object[]{}, -1, "domain_error.prolog_flag"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.flag_value", "", "Argument should be a flag value, found ~."}, new Object[]{}, -1, "domain_error.flag_value"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.not_less_than_zero", "", "Argument should be positive or 0, found ~."}, new Object[]{}, -1, "domain_error.not_less_than_zero"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.operator_priority", "", "Argument should be an operator level (less or equal 1200), found ~."}, new Object[]{}, -1, "domain_error.operator_priority"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.operator_specifier", "", "Argument should be an operator mode (fx, fy, xfx, yfx, xfy, xf, yf), found ~."}, new Object[]{}, -1, "domain_error.operator_specifier"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.atom", "", "Argument should be an atom, found ~."}, new Object[]{}, -1, "type_error.atom"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.number", "", "Argument should be a number, found ~."}, new Object[]{}, -1, "type_error.number"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.integer", "", "Argument should be an integer, found ~."}, new Object[]{}, -1, "type_error.integer"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.callable", "", "Argument should be callable (atom or compound), found ~."}, new Object[]{}, -1, "type_error.callable"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.atomic", "", "Argument should be an atomic, found ~."}, new Object[]{}, -1, "type_error.atomic"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.list", "", "Argument should be a list ([] or [_|_]), found ~."}, new Object[]{}, -1, "type_error.list"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.evaluable", "", "Argument should have evaluable functor, found ~."}, new Object[]{}, -1, "type_error.evaluable"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.character", "", "Argument should be a character, found ~."}, new Object[]{}, -1, "type_error.character"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.pair", "", "Argument should be a pair (_-_), found ~."}, new Object[]{}, -1, "type_error.pair"));
         
        add("strings", 3, new Clause(0, new Object[]{"type_error.predicate_indicator", "", "Argument should be a predicate specification (_/_), found ~."}, new Object[]{}, -1, "type_error.predicate_indicator"));
         
    }
         

         
    public static void boot6() {
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_code_class", 2})}));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{44, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_punct"})}, 0, 44));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{40, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_punct"})}, 0, 40));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{41, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_punct"})}, 0, 41));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{124, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_punct"})}, 0, 124));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{91, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_punct"})}, 0, 91));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{93, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_punct"})}, 0, 93));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{123, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_punct"})}, 0, 123));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{125, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_punct"})}, 0, 125));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{59, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_solo"})}, 0, 59));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{33, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_solo"})}, 0, 33));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{39, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_solo"})}, 0, 39));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{96, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_solo"})}, 0, 96));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{34, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_solo"})}, 0, 34));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{37, new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), "is_solo"})}, 0, 37));
         
        add("sys_code_class", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("code_type"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("sys_type_class"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_type_class", 2})}));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{0, "is_invalid"}, new Object[]{}, -1, 0));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{1, "is_upper"}, new Object[]{}, -1, 1));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{2, "is_ident"}, new Object[]{}, -1, 2));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{3, "is_upper"}, new Object[]{}, -1, 3));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{4, "is_ident"}, new Object[]{}, -1, 4));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{5, "is_ident"}, new Object[]{}, -1, 5));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{6, "is_ident"}, new Object[]{}, -1, 6));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{7, "is_ident"}, new Object[]{}, -1, 7));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{8, "is_ident"}, new Object[]{}, -1, 8));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{9, "is_digit"}, new Object[]{}, -1, 9));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{10, "is_ident"}, new Object[]{}, -1, 10));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{11, "is_ident"}, new Object[]{}, -1, 11));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{12, "is_blank"}, new Object[]{}, -1, 12));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{13, "is_blank"}, new Object[]{}, -1, 13));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{14, "is_blank"}, new Object[]{}, -1, 14));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{15, "is_cntrl"}, new Object[]{}, -1, 15));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{16, "is_cntrl"}, new Object[]{}, -1, 16));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{18, "is_invalid"}, new Object[]{}, -1, 18));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{19, "is_invalid"}, new Object[]{}, -1, 19));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{20, "is_graphic"}, new Object[]{}, -1, 20));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{21, "is_solo"}, new Object[]{}, -1, 21));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{22, "is_solo"}, new Object[]{}, -1, 22));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{23, "is_score"}, new Object[]{}, -1, 23));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{24, "is_graphic"}, new Object[]{}, -1, 24));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{25, "is_graphic"}, new Object[]{}, -1, 25));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{26, "is_graphic"}, new Object[]{}, -1, 26));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{27, "is_graphic"}, new Object[]{}, -1, 27));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{28, "is_graphic"}, new Object[]{}, -1, 28));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{29, "is_solo"}, new Object[]{}, -1, 29));
         
        add("sys_type_class", 2, new Clause(0, new Object[]{30, "is_solo"}, new Object[]{}, -1, 30));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_name_class", 1})}));
         
        add("sys_name_class", 1, new Clause(0, new Object[]{"is_ident"}, new Object[]{}, -1, "is_ident"));
         
        add("sys_name_class", 1, new Clause(0, new Object[]{"is_upper"}, new Object[]{}, -1, "is_upper"));
         
        add("sys_name_class", 1, new Clause(0, new Object[]{"is_score"}, new Object[]{}, -1, "is_score"));
         
        add("sys_name_class", 1, new Clause(0, new Object[]{"is_digit"}, new Object[]{}, -1, "is_digit"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_white_class", 1})}));
         
        add("sys_white_class", 1, new Clause(0, new Object[]{"is_blank"}, new Object[]{}, -1, "is_blank"));
         
        add("sys_white_class", 1, new Clause(0, new Object[]{"is_cntrl"}, new Object[]{}, -1, "is_cntrl"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_token", 3})}));
         
        add("sys_get_token", 3, new Clause(5, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(-5), new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(3), new Place(-6)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_get_class"), new Object[]{new Place(4), new Place(3), new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_class", 5})}));
         
        add("sys_get_class", 5, new Clause(5, new Object[]{"is_ident", new Place(-2), new Skeleton("atom", new Object[]{new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_name"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Skeleton(".", new Object[]{new Place(0), new Place(4)})}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(3)})}, -1, "is_ident"));
         
        add("sys_get_class", 5, new Clause(5, new Object[]{"is_upper", new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_name"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_make_variable"), new Object[]{new Skeleton(".", new Object[]{new Place(0), new Place(4)}), new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(3)})}, -1, "is_upper"));
         
        add("sys_get_class", 5, new Clause(5, new Object[]{"is_score", new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_name"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_make_variable"), new Object[]{new Skeleton(".", new Object[]{new Place(0), new Place(4)}), new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(3)})}, -1, "is_score"));
         
        add("sys_get_class", 5, new Clause(4, new Object[]{"is_digit", new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_get_number"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, -1, "is_digit"));
         
        add("sys_get_class", 5, new Clause(4, new Object[]{"is_punct", new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("char_code"), new Object[]{new Place(1), new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(3)})}, -1, "is_punct"));
         
        add("sys_get_class", 5, new Clause(4, new Object[]{"is_graphic", new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_block_or_symbol"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, -1, "is_graphic"));
         
        add("sys_get_class", 5, new Clause(4, new Object[]{"is_solo", new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_get_line_or_solo"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, -1, "is_solo"));
         
        add("sys_get_class", 5, new Clause(4, new Object[]{"is_invalid", new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_get_eof_or_error"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, -1, "is_invalid"));
         
        add("sys_get_class", 5, new Clause(3, new Object[]{"is_blank", new Place(-1), new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_get_token"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, "is_blank"));
         
        add("sys_get_class", 5, new Clause(3, new Object[]{"is_cntrl", new Place(-1), new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_get_token"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, "is_cntrl"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_eof_or_error", 4})}));
         
        add("sys_get_eof_or_error", 4, new Clause(3, new Object[]{-1, "end_of_file", new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, -1));
         
        add("sys_get_eof_or_error", 4, new Clause(2, new Object[]{new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"illegal_unicode"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_name", 3})}));
         
        add("sys_get_name", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_name_class"), new Object[]{new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_name"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_name", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_make_variable", 2})}));
         
        add("sys_make_variable", 2, new Clause(2, new Object[]{new Skeleton(".", new Object[]{new Place(-3), "[]"}), "anon"}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_score"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "."));
         
        add("sys_make_variable", 2, new Clause(2, new Object[]{new Place(-2), new Skeleton("var", new Object[]{new Place(-3)})}, new Object[]{new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_number", 4})}));
         
        add("sys_get_number", 4, new Clause(4, new Object[]{48, new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(-2), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_special"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, 0, 48));
         
        add("sys_get_number", 4, new Clause(3, new Object[]{new Place(-2), new Skeleton("decimal", new Object[]{new Skeleton(".", new Object[]{new Place(0), new Place(-2)})}), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_get_decimal"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_special", 4})}));
         
        add("sys_get_special", 4, new Clause(4, new Object[]{120, new Skeleton("radix", new Object[]{new Place(-3), 16}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_radix"), new Object[]{new Place(1), "[]", 16, new Place(2), new Place(3)})}, 0, 120));
         
        add("sys_get_special", 4, new Clause(4, new Object[]{111, new Skeleton("radix", new Object[]{new Place(-3), 8}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_radix"), new Object[]{new Place(1), "[]", 8, new Place(2), new Place(3)})}, 0, 111));
         
        add("sys_get_special", 4, new Clause(4, new Object[]{98, new Skeleton("radix", new Object[]{new Place(-3), 2}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_radix"), new Object[]{new Place(1), "[]", 2, new Place(2), new Place(3)})}, 0, 98));
         
        add("sys_get_special", 4, new Clause(4, new Object[]{114, new Skeleton("reference", new Object[]{new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_name"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, 114));
         
        add("sys_get_special", 4, new Clause(4, new Object[]{102, new Skeleton("decimal", new Object[]{new Skeleton(".", new Object[]{48, new Skeleton(".", new Object[]{102, new Place(-3)})})}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_tolerant"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, 102));
         
        add("sys_get_special", 4, new Clause(4, new Object[]{100, new Skeleton("decimal", new Object[]{new Skeleton(".", new Object[]{48, new Skeleton(".", new Object[]{100, new Place(-3)})})}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_tolerant"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, 100));
         
        add("sys_get_special", 4, new Clause(4, new Object[]{39, new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(-2), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_code"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, 0, 39));
         
        add("sys_get_special", 4, new Clause(3, new Object[]{new Place(-1), new Skeleton("decimal", new Object[]{new Skeleton(".", new Object[]{48, new Place(-2)})}), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_get_decimal"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_code", 4})}));
         
        add("sys_get_code", 4, new Clause(4, new Object[]{39, new Skeleton("code", new Object[]{new Skeleton(".", new Object[]{39, new Place(-3)})}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_double"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, 39));
         
        add("sys_get_code", 4, new Clause(4, new Object[]{92, new Skeleton("code", new Object[]{new Skeleton(".", new Object[]{92, new Place(-3)})}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(-2), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_escape"), new Object[]{new Place(0), new Place(1), "[]", new Place(2), new Place(3)})}, 0, 92));
         
        add("sys_get_code", 4, new Clause(3, new Object[]{new Place(-2), new Skeleton("code", new Object[]{new Skeleton(".", new Object[]{new Place(0), "[]"})}), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_get_char"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_double", 3})}));
         
        add("sys_get_double", 3, new Clause(3, new Object[]{new Compound(".", new Object[]{39, "[]"}), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{39, new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_get_double", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_tolerant", 3})}));
         
        add("sys_get_tolerant", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_digit"}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_tolerant"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_tolerant", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{46, new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{46, new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_at_code"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(4), "is_digit"}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_fraction"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, "."));
         
        add("sys_get_tolerant", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_is_expo"), new Object[]{new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_at_code"), new Object[]{new Place(-3), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_is_sign_digit"), new Object[]{new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_exponent"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_tolerant", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_decimal", 3})}));
         
        add("sys_get_decimal", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_digit"}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_decimal"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_decimal", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{46, new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{46, new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_at_code"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(4), "is_digit"}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_fraction"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, "."));
         
        add("sys_get_decimal", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_fraction", 3})}));
         
        add("sys_get_fraction", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_digit"}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_fraction"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_fraction", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_is_expo"), new Object[]{new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_at_code"), new Object[]{new Place(-3), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_is_sign_digit"), new Object[]{new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_exponent"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_fraction", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_exponent", 3})}));
         
        add("sys_get_exponent", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_is_sign"), new Object[]{new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_rest"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_exponent", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_get_rest"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_rest", 3})}));
         
        add("sys_get_rest", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_digit"}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_rest"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_rest", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_expo", 1})}));
         
        add("sys_is_expo", 1, new Clause(0, new Object[]{69}, new Object[]{}, -1, 69));
         
        add("sys_is_expo", 1, new Clause(0, new Object[]{101}, new Object[]{}, -1, 101));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_sign_digit", 1})}));
         
        add("sys_is_sign_digit", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sys_is_sign"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        add("sys_is_sign_digit", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(0), "is_digit"})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_sign", 1})}));
         
        add("sys_is_sign", 1, new Clause(0, new Object[]{45}, new Object[]{}, -1, 45));
         
        add("sys_is_sign", 1, new Clause(0, new Object[]{43}, new Object[]{}, -1, 43));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_block_or_symbol", 4})}));
         
        add("sys_get_block_or_symbol", 4, new Clause(4, new Object[]{47, new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{42, new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_skip_block"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_token"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, 47));
         
        add("sys_get_block_or_symbol", 4, new Clause(6, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_get_symbol"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(-7), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_make_period"), new Object[]{new Place(5), new Skeleton(".", new Object[]{new Place(0), new Place(4)}), new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(3)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_symbol", 3})}));
         
        add("sys_get_symbol", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_graphic"}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_symbol"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_symbol", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_skip_block", 2})}));
         
        add("sys_skip_block", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{42, new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_skip_end"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_skip_block", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{-1, new Place(0), new Place(-2)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"end_of_file_in_block_comment"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        add("sys_skip_block", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("sys_skip_block"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_skip_end", 2})}));
         
        add("sys_skip_end", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{47, new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_skip_end", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_skip_block"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_make_period", 3})}));
         
        add("sys_make_period", 3, new Clause(1, new Object[]{37, new Compound(".", new Object[]{46, "[]"}), "."}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, 37));
         
        add("sys_make_period", 3, new Clause(1, new Object[]{-1, new Compound(".", new Object[]{46, "[]"}), "."}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, -1));
         
        add("sys_make_period", 3, new Clause(2, new Object[]{new Place(-3), new Compound(".", new Object[]{46, "[]"}), "."}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_white_class"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_make_period", 3, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Skeleton("atom", new Object[]{new Place(-3)})}, new Object[]{new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_line_or_solo", 4})}));
         
        add("sys_get_line_or_solo", 4, new Clause(4, new Object[]{39, new Skeleton("single", new Object[]{new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_quote"), new Object[]{new Place(1), 39, new Place(2), new Place(3)})}, 0, 39));
         
        add("sys_get_line_or_solo", 4, new Clause(4, new Object[]{96, new Skeleton("back", new Object[]{new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_quote"), new Object[]{new Place(1), 96, new Place(2), new Place(3)})}, 0, 96));
         
        add("sys_get_line_or_solo", 4, new Clause(4, new Object[]{34, new Skeleton("codes", new Object[]{new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_quote"), new Object[]{new Place(1), 34, new Place(2), new Place(3)})}, 0, 34));
         
        add("sys_get_line_or_solo", 4, new Clause(4, new Object[]{37, new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(-2), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_skip_line"), new Object[]{new Place(0), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_token"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, 37));
         
        add("sys_get_line_or_solo", 4, new Clause(4, new Object[]{new Place(-2), new Skeleton("atom", new Object[]{new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("char_code"), new Object[]{new Place(1), new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(3)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_skip_line", 3})}));
         
        add("sys_skip_line", 3, new Clause(3, new Object[]{10, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, 10));
         
        add("sys_skip_line", 3, new Clause(3, new Object[]{13, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, 13));
         
        add("sys_skip_line", 3, new Clause(3, new Object[]{-1, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, -1));
         
        add("sys_skip_line", 3, new Clause(3, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(-4), new Place(0), new Place(-2)}), new Skeleton(new Cache("sys_skip_line"), new Object[]{new Place(2), new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_quote", 4})}));
         
        add("sys_get_quote", 4, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(2), new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_more"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_get_quote", 4, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{92, new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_cont"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_get_quote", 4, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(0), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_char"), new Object[]{new Place(0), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_quote"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4)})}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_more", 4})}));
         
        add("sys_get_more", 4, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(1), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_quote"), new Object[]{new Place(2), new Place(1), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_get_more", 4, new Clause(2, new Object[]{"[]", new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_char", 3})}));
         
        add("sys_get_char", 3, new Clause(2, new Object[]{10, new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"end_of_line_as_character"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, 10));
         
        add("sys_get_char", 3, new Clause(2, new Object[]{13, new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"end_of_line_as_character"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, 13));
         
        add("sys_get_char", 3, new Clause(2, new Object[]{-1, new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"unbalanced_quoted"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, -1));
         
        add("sys_get_char", 3, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_cont", 4})}));
         
        add("sys_get_cont", 4, new Clause(5, new Object[]{new Skeleton(".", new Object[]{92, new Place(-2)}), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_escape"), new Object[]{new Place(4), new Place(0), new Place(-2), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_quote"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_escape", 5})}));
         
        add("sys_get_escape", 5, new Clause(5, new Object[]{13, new Skeleton(".", new Object[]{13, new Place(-3)}), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_skip"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4)})}, 0, 13));
         
        add("sys_get_escape", 5, new Clause(2, new Object[]{-1, new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"illegal_escape"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, -1));
         
        add("sys_get_escape", 5, new Clause(5, new Object[]{120, new Skeleton(".", new Object[]{120, new Place(-3)}), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_radix"), new Object[]{new Place(1), new Place(-3), 16, new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_get_backslash"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4)})}, 0, 120));
         
        add("sys_get_escape", 5, new Clause(6, new Object[]{new Place(-3), new Skeleton(".", new Object[]{new Place(1), new Place(-4)}), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("sys_is_radix"), new Object[]{new Place(1), 8}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_get_radix"), new Object[]{new Place(2), new Place(-4), 8, new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_get_backslash"), new Object[]{new Place(2), new Place(3), new Place(4), new Place(5)})}, 0, UNDEF_OBJ));
         
        add("sys_get_escape", 5, new Clause(2, new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(0), new Place(-2)}), new Place(0), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_skip", 4})}));
         
        add("sys_get_skip", 4, new Clause(3, new Object[]{new Skeleton(".", new Object[]{10, new Place(-3)}), new Place(1), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{10, new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_get_skip", 4, new Clause(2, new Object[]{new Place(-2), new Place(0), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_backslash", 4})}));
         
        add("sys_get_backslash", 4, new Clause(3, new Object[]{new Skeleton(".", new Object[]{92, new Place(-3)}), new Place(1), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{92, new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_get_backslash", 4, new Clause(2, new Object[]{new Place(-2), new Place(0), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_radix", 5})}));
         
        add("sys_get_radix", 5, new Clause(7, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6), new Place(-7), new Place(-8)}, new Object[]{new Skeleton(new Cache("sys_current_code"), new Object[]{new Place(1), new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_is_radix"), new Object[]{new Place(1), new Place(4)}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_next_code"), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_get_radix"), new Object[]{new Place(2), new Place(3), new Place(4), new Place(5), new Place(6)})}, 0, "."));
         
        add("sys_get_radix", 5, new Clause(2, new Object[]{new Place(-2), new Place(0), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_radix", 2})}));
         
        add("sys_is_radix", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("code_numeric"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("=<"), new Object[]{0, new Place(0)}), new Skeleton(new Cache("<"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_meta", 1})}));
         
        add("sys_is_meta", 1, new Clause(0, new Object[]{39}, new Object[]{}, -1, 39));
         
        add("sys_is_meta", 1, new Clause(0, new Object[]{96}, new Object[]{}, -1, 96));
         
        add("sys_is_meta", 1, new Clause(0, new Object[]{34}, new Object[]{}, -1, 34));
         
        add("sys_is_meta", 1, new Clause(0, new Object[]{92}, new Object[]{}, -1, 92));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_escape", 2})}));
         
        add("sys_is_escape", 2, new Clause(0, new Object[]{110, 10}, new Object[]{}, -1, 110));
         
        add("sys_is_escape", 2, new Clause(0, new Object[]{116, 9}, new Object[]{}, -1, 116));
         
        add("sys_is_escape", 2, new Clause(0, new Object[]{98, 8}, new Object[]{}, -1, 98));
         
        add("sys_is_escape", 2, new Clause(0, new Object[]{102, 12}, new Object[]{}, -1, 102));
         
        add("sys_is_escape", 2, new Clause(0, new Object[]{114, 13}, new Object[]{}, -1, 114));
         
        add("sys_is_escape", 2, new Clause(0, new Object[]{97, 7}, new Object[]{}, -1, 97));
         
        add("sys_is_escape", 2, new Clause(0, new Object[]{118, 11}, new Object[]{}, -1, 118));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_current_code", 3})}));
         
        add("sys_current_code", 3, new Clause(2, new Object[]{new Place(-2), new Skeleton("-", new Object[]{new Place(-3), new Place(0)}), new Skeleton("-", new Object[]{new Place(1), new Place(0)})}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_next_code", 2})}));
         
        add("sys_next_code", 2, new Clause(2, new Object[]{new Skeleton("-", new Object[]{new Place(-2), new Place(-1)}), new Skeleton("-", new Object[]{new Place(0), new Place(-3)})}, new Object[]{new Skeleton(new Cache("get_code"), new Object[]{new Place(0), new Place(1)})}, -1, "-"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_at_code", 3})}));
         
        add("sys_at_code", 3, new Clause(3, new Object[]{new Place(-2), new Skeleton("-", new Object[]{new Place(-3), new Place(-4)}), new Skeleton("-", new Object[]{new Place(1), new Place(2)})}, new Object[]{new Skeleton(new Cache("peek_code"), new Object[]{new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_sync_throw", 3})}));
         
        add("sys_sync_throw", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_fill_stack"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_sync_tokens"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_raise"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_sync_raise", 3})}));
         
        add("sys_sync_raise", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_sync_tokens"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_raise"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_sync_tokens", 2})}));
         
        add("sys_sync_tokens", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_token"), new Object[]{".", new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_sync_tokens", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_token"), new Object[]{"end_of_file", new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_sync_tokens", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_sync_token"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("sys_sync_tokens"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_sync_token", 2})}));
         
        add("sys_sync_token", 2, new Clause(5, new Object[]{new Skeleton("t", new Object[]{new Place(-1), new Place(-2), new Skeleton("r", new Object[]{new Place(-3), new Place(-4)}), new Place(-5)}), new Skeleton("t", new Object[]{new Place(-6), new Place(0), new Skeleton("r", new Object[]{new Place(1), new Place(-2)}), new Place(3)})}, new Object[]{new Skeleton(new Cache("sys_get_token"), new Object[]{new Place(4), new Skeleton("-", new Object[]{new Place(1), new Place(2)}), new Skeleton("-", new Object[]{new Place(-1), new Place(0)})})}, -1, "t"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_safe_code", 2})}));
         
        add("sys_safe_code", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("current_lastcode"), new Object[]{new Place(0), new Place(-4)}), new Skeleton(new Cache("sys_safe_space"), new Object[]{new Place(0), new Place(2), new Place(1)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_safe_atom", 2})}));
         
        add("sys_safe_atom", 2, new Clause(4, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("atom_arg"), new Object[]{0, new Place(2), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("current_lastcode"), new Object[]{new Place(1), new Place(-2)}), new Skeleton(new Cache("sys_safe_space"), new Object[]{new Place(1), new Place(0), new Place(3)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_safe_atom", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_safe_space", 3})}));
         
        add("sys_safe_space", 3, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(2), new Place(-6)}), new Skeleton(new Cache("sys_name_class"), new Object[]{new Place(4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_safe_name"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_safe_space", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(2), "is_graphic"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_safe_symbol"), new Object[]{new Place(1), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_safe_space", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Place(2), new Place(3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_safe_quote"), new Object[]{new Place(1), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_safe_space", 3, new Clause(0, new Object[]{new Place(-1), new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_safe_name", 3})}));
         
        add("sys_safe_name", 3, new Clause(3, new Object[]{new Place(-3), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_name_class"), new Object[]{new Place(2)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32})}, 0, UNDEF_OBJ));
         
        add("sys_safe_name", 3, new Clause(2, new Object[]{new Place(-3), 48, 39}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32})}, 0, UNDEF_OBJ));
         
        add("sys_safe_name", 3, new Clause(0, new Object[]{new Place(-1), new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_safe_symbol", 2})}));
         
        add("sys_safe_symbol", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(2), "is_graphic"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32})}, 0, UNDEF_OBJ));
         
        add("sys_safe_symbol", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_safe_quote", 2})}));
         
        add("sys_safe_quote", 2, new Clause(2, new Object[]{new Place(-3), 39}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32})}, 0, UNDEF_OBJ));
         
        add("sys_safe_quote", 2, new Clause(2, new Object[]{new Place(-3), 96}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32})}, 0, UNDEF_OBJ));
         
        add("sys_safe_quote", 2, new Clause(2, new Object[]{new Place(-3), 34}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32})}, 0, UNDEF_OBJ));
         
        add("sys_safe_quote", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_next_token", 2})}));
         
        add("sys_next_token", 2, new Clause(7, new Object[]{new Skeleton("t", new Object[]{new Place(-1), new Place(-2), new Skeleton("r", new Object[]{new Place(-3), new Place(-4)}), new Place(-5)}), new Skeleton("t", new Object[]{new Place(-6), new Place(0), new Skeleton("r", new Object[]{new Place(1), new Place(-7)}), new Place(3)})}, new Object[]{new Skeleton(new Cache("sys_get_token"), new Object[]{new Place(-8), new Skeleton("-", new Object[]{new Place(1), new Place(2)}), new Skeleton("-", new Object[]{new Place(-1), new Place(5)})}), new Skeleton(new Cache("sys_trap"), new Object[]{new Skeleton("sys_convert_token", new Object[]{new Place(6), new Place(4)}), new Place(-6), new Skeleton("sys_sync_raise", new Object[]{new Place(4), new Skeleton("t", new Object[]{new Place(6), new Place(0), new Skeleton("r", new Object[]{new Place(1), new Place(5)}), new Place(3)}), new Place(-1)})})}, -1, "t"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_token", 2})}));
         
        add("sys_convert_token", 2, new Clause(3, new Object[]{new Skeleton("single", new Object[]{new Place(-3)}), new Skeleton("atom", new Object[]{new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_convert_quote"), new Object[]{new Place(-2), new Place(1), "[]"}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(2), new Place(0)})}, 0, "single"));
         
        add("sys_convert_token", 2, new Clause(3, new Object[]{new Skeleton("back", new Object[]{new Place(-3)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_convert_quote"), new Object[]{new Place(-2), new Place(1), "[]"}), new Skeleton(new Cache("sys_make_variable"), new Object[]{new Place(0), new Place(2)})}, 0, "back"));
         
        add("sys_convert_token", 2, new Clause(3, new Object[]{new Skeleton("decimal", new Object[]{new Place(-3)}), new Skeleton("number", new Object[]{new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(-2), new Place(1)}), new Skeleton(new Cache("atom_number"), new Object[]{new Place(0), new Place(2)})}, 0, "decimal"));
         
        add("sys_convert_token", 2, new Clause(4, new Object[]{new Skeleton("radix", new Object[]{new Place(-3), new Place(-4)}), new Skeleton("radix", new Object[]{new Place(-5), new Place(2)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(-2), new Place(1)}), new Skeleton(new Cache("atom_integer"), new Object[]{new Place(0), new Place(2), new Place(3)})}, 0, "radix"));
         
        add("sys_convert_token", 2, new Clause(3, new Object[]{new Skeleton("reference", new Object[]{new Place(-3)}), new Skeleton("reference", new Object[]{new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(-2), new Place(1)}), new Skeleton(new Cache("atom_reference"), new Object[]{new Place(0), new Place(2)})}, 0, "reference"));
         
        add("sys_convert_token", 2, new Clause(3, new Object[]{new Skeleton("codes", new Object[]{new Place(-3)}), new Skeleton("codes", new Object[]{new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_convert_quote"), new Object[]{new Place(2), new Place(1), "[]"})}, 0, "codes"));
         
        add("sys_convert_token", 2, new Clause(3, new Object[]{new Skeleton("code", new Object[]{new Place(-3)}), new Skeleton("code", new Object[]{new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_convert_code"), new Object[]{new Place(2), new Place(1), "[]"})}, 0, "code"));
         
        add("sys_convert_token", 2, new Clause(1, new Object[]{new Place(-2), new Place(0)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_quote", 3})}));
         
        add("sys_convert_quote", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{92, new Place(-4)})}), new Skeleton(new Cache("sys_convert_sep"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_convert_quote"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_convert_quote", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_convert_char"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_convert_quote"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_convert_quote", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_sep", 2})}));
         
        add("sys_convert_sep", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Skeleton(".", new Object[]{13, new Skeleton(".", new Object[]{10, new Place(1)})})})}, -1, "."));
         
        add("sys_convert_sep", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Skeleton(".", new Object[]{10, new Place(1)})})}, -1, "."));
         
        add("sys_convert_sep", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Skeleton(".", new Object[]{13, new Place(1)})})}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_char", 3})}));
         
        add("sys_convert_char", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{92, new Place(-4)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_convert_escape"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_convert_char", 3, new Clause(3, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-2), new Place(-4)})}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(0), "is_cntrl"}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"illegal_layout"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(1)})}, -1, UNDEF_OBJ));
         
        add("sys_convert_char", 3, new Clause(3, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-2), new Place(-4)})}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(0), "is_invalid"}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"illegal_unicode"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(1)})}, -1, UNDEF_OBJ));
         
        add("sys_convert_char", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(1), new Skeleton(".", new Object[]{new Place(0), new Place(2)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_code", 3})}));
         
        add("sys_convert_code", 3, new Clause(3, new Object[]{39, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(1), new Skeleton(".", new Object[]{39, new Place(-3)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_convert_double"), new Object[]{new Place(1), new Place(2)})}, 0, 39));
         
        add("sys_convert_code", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_convert_char"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_double", 2})}));
         
        add("sys_convert_double", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(1), new Skeleton(".", new Object[]{39, new Place(-3)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_convert_double", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"doubling_missing"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_escape", 3})}));
         
        add("sys_convert_escape", 3, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(-4), new Place(-6)})}), new Skeleton(new Cache("sys_is_escape"), new Object[]{new Place(2), new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_convert_escape", 3, new Clause(6, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(-4), new Place(-6)})}), new Skeleton(new Cache("sys_is_radix"), new Object[]{new Place(2), 8}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_convert_radix"), new Object[]{new Place(-2), 8, new Place(4), new Place(-6)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(-7), new Skeleton(".", new Object[]{new Place(2), new Place(0)})}), new Skeleton(new Cache("atom_integer"), new Object[]{new Place(5), 8, new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_convert_backslash"), new Object[]{new Place(4), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_convert_escape", 3, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{120, new Place(-4)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_convert_radix"), new Object[]{new Place(-2), 16, new Place(2), new Place(-4)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(-6), new Place(0)}), new Skeleton(new Cache("atom_integer"), new Object[]{new Place(4), 16, new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_convert_backslash"), new Object[]{new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_convert_escape", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(1), new Place(-4)})}), new Skeleton(new Cache("sys_is_meta"), new Object[]{new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_convert_escape", 3, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"illegal_escape"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_backslash", 2})}));
         
        add("sys_convert_backslash", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(1), new Skeleton(".", new Object[]{92, new Place(-3)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_convert_backslash", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"unbalanced_escape"}), new Place(-1)})}), new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_radix", 4})}));
         
        add("sys_convert_radix", 4, new Clause(6, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(4), new Skeleton(".", new Object[]{new Place(1), new Place(-6)})}), new Skeleton(new Cache("sys_is_radix"), new Object[]{new Place(1), new Place(3)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_convert_radix"), new Object[]{new Place(2), new Place(3), new Place(4), new Place(5)})}, 0, "."));
         
        add("sys_convert_radix", 4, new Clause(2, new Object[]{"[]", new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_opts", 3})}));
         
        add("sys_write_opts", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_write_opts", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_opt"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_write_opts"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_write_opts", 3, new Clause(2, new Object[]{"[]", new Place(-3), new Place(1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "[]"));
         
        add("sys_write_opts", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"list", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_opt", 3})}));
         
        add("sys_write_opt", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_write_opt", 3, new Clause(4, new Object[]{new Skeleton("variable_names", new Object[]{new Place(-3)}), new Skeleton("v", new Object[]{new Place(-1), new Place(-4), new Place(-5)}), new Skeleton("v", new Object[]{new Place(1), new Place(2), new Place(3)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_variable_names"), new Object[]{new Place(1)})}, 0, "variable_names"));
         
        add("sys_write_opt", 3, new Clause(5, new Object[]{new Skeleton("quoted", new Object[]{new Place(-3)}), new Skeleton("v", new Object[]{new Place(-4), new Place(-5), new Place(-6)}), new Skeleton("v", new Object[]{new Place(2), new Place(-4), new Place(4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_opt_boolean"), new Object[]{new Place(1), 1, new Place(3), new Place(2)})}, 0, "quoted"));
         
        add("sys_write_opt", 3, new Clause(5, new Object[]{new Skeleton("ignore_ops", new Object[]{new Place(-3)}), new Skeleton("v", new Object[]{new Place(-4), new Place(-5), new Place(-6)}), new Skeleton("v", new Object[]{new Place(2), new Place(-4), new Place(4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_opt_boolean"), new Object[]{new Place(1), 2, new Place(3), new Place(2)})}, 0, "ignore_ops"));
         
        add("sys_write_opt", 3, new Clause(5, new Object[]{new Skeleton("format", new Object[]{new Place(-3)}), new Skeleton("v", new Object[]{new Place(-4), new Place(-5), new Place(-6)}), new Skeleton("v", new Object[]{new Place(2), new Place(-4), new Place(4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_opt_boolean"), new Object[]{new Place(1), 4, new Place(3), new Place(2)})}, 0, "format"));
         
        add("sys_write_opt", 3, new Clause(5, new Object[]{new Skeleton("numbervars", new Object[]{new Place(-3)}), new Skeleton("v", new Object[]{new Place(-4), new Place(-5), new Place(-6)}), new Skeleton("v", new Object[]{new Place(2), new Place(-4), new Place(4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_opt_boolean"), new Object[]{new Place(1), 8, new Place(3), new Place(2)})}, 0, "numbervars"));
         
        add("sys_write_opt", 3, new Clause(5, new Object[]{new Skeleton("annotation", new Object[]{new Place(-3)}), new Skeleton("v", new Object[]{new Place(-4), new Place(-5), new Place(-6)}), new Skeleton("v", new Object[]{new Place(2), new Place(-4), new Place(4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_opt_boolean"), new Object[]{new Place(1), 16, new Place(3), new Place(2)})}, 0, "annotation"));
         
        add("sys_write_opt", 3, new Clause(4, new Object[]{new Skeleton("priority", new Object[]{new Place(-3)}), new Skeleton("v", new Object[]{new Place(-4), new Place(-5), new Place(-1)}), new Skeleton("v", new Object[]{new Place(2), new Place(3), new Place(1)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_check_integer"), new Object[]{new Place(1)})}, 0, "priority"));
         
        add("sys_write_opt", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"write_option", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_variable_names", 1})}));
         
        add("sys_write_variable_names", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_write_variable_names", 1, new Clause(3, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_variable_name"), new Object[]{new Place(1)}), new Skeleton(new Cache("sys_write_variable_names"), new Object[]{new Place(2)})}, 0, "."));
         
        add("sys_write_variable_names", 1, new Clause(1, new Object[]{"[]"}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "[]"));
         
        add("sys_write_variable_names", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"list", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_variable_name", 1})}));
         
        add("sys_write_variable_name", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_write_variable_name", 1, new Clause(2, new Object[]{new Skeleton("=", new Object[]{new Place(-3), new Place(-1)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_check_atom"), new Object[]{new Place(1)})}, 0, "="));
         
        add("sys_write_variable_name", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"variable_name", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_opts", 3})}));
         
        add("sys_read_opts", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_read_opts", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_read_opt"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_read_opts"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_read_opts", 3, new Clause(2, new Object[]{"[]", new Place(-3), new Place(1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "[]"));
         
        add("sys_read_opts", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"list", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_opt", 3})}));
         
        add("sys_read_opt", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_read_opt", 3, new Clause(2, new Object[]{new Skeleton("variable_names", new Object[]{new Place(-1)}), new Place(-3), new Place(1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "variable_names"));
         
        add("sys_read_opt", 3, new Clause(2, new Object[]{new Skeleton("singletons", new Object[]{new Place(-1)}), new Place(-3), new Place(1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "singletons"));
         
        add("sys_read_opt", 3, new Clause(3, new Object[]{new Skeleton("priority", new Object[]{new Place(-3)}), new Skeleton("z", new Object[]{new Place(-1), new Place(-4)}), new Skeleton("z", new Object[]{new Place(1), new Place(2)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_check_integer"), new Object[]{new Place(1)})}, 0, "priority"));
         
        add("sys_read_opt", 3, new Clause(4, new Object[]{new Skeleton("annotation", new Object[]{new Place(-3)}), new Skeleton("z", new Object[]{new Place(-4), new Place(-5)}), new Skeleton("z", new Object[]{new Place(2), new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_opt_boolean"), new Object[]{new Place(1), 16, new Place(3), new Place(2)})}, 0, "annotation"));
         
        add("sys_read_opt", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"read_option", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_results", 2})}));
         
        add("sys_read_results", 2, new Clause(1, new Object[]{new Place(-2), new Place(-1)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_read_results", 2, new Clause(4, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_read_result"), new Object[]{new Place(1), new Place(3)}), new Skeleton(new Cache("sys_read_results"), new Object[]{new Place(2), new Place(3)})}, 0, "."));
         
        add("sys_read_results", 2, new Clause(1, new Object[]{"[]", new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "[]"));
         
        add("sys_read_results", 2, new Clause(1, new Object[]{new Place(-2), new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"list", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_result", 2})}));
         
        add("sys_read_result", 2, new Clause(1, new Object[]{new Place(-2), new Place(-1)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_read_result", 2, new Clause(3, new Object[]{new Skeleton("variable_names", new Object[]{new Place(-3)}), new Skeleton("s", new Object[]{new Place(-4), new Place(-1)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("reverse"), new Object[]{new Place(2), new Place(1)})}, 0, "variable_names"));
         
        add("sys_read_result", 2, new Clause(3, new Object[]{new Skeleton("singletons", new Object[]{new Place(-3)}), new Skeleton("s", new Object[]{new Place(-1), new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("reverse"), new Object[]{new Place(2), new Place(1)})}, 0, "singletons"));
         
        add("sys_read_result", 2, new Clause(1, new Object[]{new Skeleton("priority", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "priority"));
         
        add("sys_read_result", 2, new Clause(1, new Object[]{new Skeleton("annotation", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "annotation"));
         
        add("sys_read_result", 2, new Clause(1, new Object[]{new Place(-2), new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"read_option", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_opt_boolean", 4})}));
         
        add("sys_opt_boolean", 4, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{"instantiation_error", new Place(-1)})})}, -1, UNDEF_OBJ));
         
        add("sys_opt_boolean", 4, new Clause(4, new Object[]{"true", new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("\\/"), new Object[]{new Place(2), new Place(1)}), new Place(3)})}, 0, "true"));
         
        add("sys_opt_boolean", 4, new Clause(4, new Object[]{"false", new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), new Skeleton(new Cache("\\"), new Object[]{new Place(1)})}), new Place(3)})}, 0, "false"));
         
        add("sys_opt_boolean", 4, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"boolean", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_proper_atom", 1})}));
         
        add("sys_proper_atom", 1, new Clause(3, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)})}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(0), new Place(-4)}), new Skeleton(new Cache("sys_proper_atom"), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(0), new Place(1)})})}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_proper_atom", 2})}));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_ident", new Skeleton(".", new Object[]{new Place(-1), new Place(-2)})}, new Object[]{new Skeleton(new Cache("sys_proper_atom_name"), new Object[]{new Place(0)})}, -1, "is_ident"));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_graphic", new Compound(".", new Object[]{46, "[]"})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Cache("fail")}, 0, "is_graphic"));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_graphic", new Skeleton(".", new Object[]{47, new Skeleton(".", new Object[]{42, new Place(-1)})})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Cache("fail")}, 0, "is_graphic"));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_graphic", new Skeleton(".", new Object[]{new Place(-1), new Place(-2)})}, new Object[]{new Skeleton(new Cache("sys_proper_atom_graphic"), new Object[]{new Place(0)})}, -1, "is_graphic"));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_solo", new Compound(".", new Object[]{39, "[]"})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Cache("fail")}, 0, "is_solo"));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_solo", new Compound(".", new Object[]{96, "[]"})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Cache("fail")}, 0, "is_solo"));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_solo", new Compound(".", new Object[]{34, "[]"})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Cache("fail")}, 0, "is_solo"));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_solo", new Compound(".", new Object[]{37, "[]"})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Cache("fail")}, 0, "is_solo"));
         
        add("sys_proper_atom", 2, new Clause(0, new Object[]{"is_solo", new Skeleton(".", new Object[]{new Place(-1), "[]"})}, new Object[]{}, -1, "is_solo"));
         
        add("sys_proper_atom", 2, new Clause(1, new Object[]{"is_punct", new Compound(".", new Object[]{91, new Compound(".", new Object[]{93, "[]"})})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "is_punct"));
         
        add("sys_proper_atom", 2, new Clause(0, new Object[]{"is_punct", new Compound(".", new Object[]{123, new Compound(".", new Object[]{125, "[]"})})}, new Object[]{}, -1, "is_punct"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_proper_atom_name", 1})}));
         
        add("sys_proper_atom_name", 1, new Clause(3, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)})}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_name_class"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_proper_atom_name"), new Object[]{new Place(2)})}, 0, "."));
         
        add("sys_proper_atom_name", 1, new Clause(0, new Object[]{"[]"}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_proper_atom_graphic", 1})}));
         
        add("sys_proper_atom_graphic", 1, new Clause(3, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)})}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_graphic"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_proper_atom_graphic"), new Object[]{new Place(2)})}, 0, "."));
         
        add("sys_proper_atom_graphic", 1, new Clause(0, new Object[]{"[]"}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_escape_codes", 3})}));
         
        add("sys_escape_codes", 3, new Clause(4, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_escape_code"), new Object[]{new Place(0), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_escape_codes"), new Object[]{new Place(1), new Place(2), new Place(3)})}, -1, "."));
         
        add("sys_escape_codes", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_escape_code", 3})}));
         
        add("sys_escape_code", 3, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_is_escape"), new Object[]{new Place(-6), new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{92, new Skeleton(".", new Object[]{new Place(4), new Place(3)})})})}, 0, UNDEF_OBJ));
         
        add("sys_escape_code", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_is_meta"), new Object[]{new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{92, new Skeleton(".", new Object[]{new Place(1), new Place(3)})})})}, 0, UNDEF_OBJ));
         
        add("sys_escape_code", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_cntrl"}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_escape_code2"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_escape_code", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_invalid"}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_escape_code2"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_escape_code", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(1), new Skeleton(".", new Object[]{new Place(0), new Place(2)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_escape_code2", 3})}));
         
        add("sys_escape_code2", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=<"), new Object[]{new Place(1), 511}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("atom_integer"), new Object[]{new Place(-2), 8, new Place(1)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{92, new Place(-4)})}), new Skeleton(new Cache("sys_escape_codes2"), new Object[]{new Place(0), new Place(2), new Place(-4)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Skeleton(".", new Object[]{92, new Place(3)})})}, 0, UNDEF_OBJ));
         
        add("sys_escape_code2", 3, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("atom_integer"), new Object[]{new Place(-5), 16, new Place(0)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Skeleton(".", new Object[]{92, new Skeleton(".", new Object[]{120, new Place(-3)})})}), new Skeleton(new Cache("sys_escape_codes2"), new Object[]{new Place(3), new Place(1), new Place(-3)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Skeleton(".", new Object[]{92, new Place(2)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_escape_codes2", 3})}));
         
        add("sys_escape_codes2", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Skeleton(".", new Object[]{new Place(1), new Place(-3)})}), new Skeleton(new Cache("sys_escape_codes2"), new Object[]{new Place(2), new Place(1), new Place(4)})}, 0, "."));
         
        add("sys_escape_codes2", 3, new Clause(2, new Object[]{"[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_make_negative", 2})}));
         
        add("sys_make_negative", 2, new Clause(4, new Object[]{new Skeleton("$RDX", new Object[]{new Place(-3), new Place(-4)}), new Skeleton("$RDX", new Object[]{new Place(-5), new Place(2)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(1)}), new Place(3)})}, 0, "$RDX"));
         
        add("sys_make_negative", 2, new Clause(3, new Object[]{new Skeleton("$CHR", new Object[]{new Place(-3)}), new Skeleton("$CHR", new Object[]{new Place(-4)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(1)}), new Place(2)})}, 0, "$CHR"));
         
        add("sys_make_negative", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(0)}), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_multifile_safe"), new Object[]{"strings", 3})}));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"strings", 3})}));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_number", "de", "Keine Nummer."}, new Object[]{}, -1, "syntax_error.illegal_number"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_reference", "de", "Keine Referenz."}, new Object[]{}, -1, "syntax_error.illegal_reference"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_layout", "de", "Unerlaubtes Druckbildzeichen in Zeichenkette."}, new Object[]{}, -1, "syntax_error.illegal_layout"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_unicode", "de", "Unerlaubtes Unicodezeichen im Text."}, new Object[]{}, -1, "syntax_error.illegal_unicode"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.doubling_missing", "de", "Anführungszeichen nicht zweifach."}, new Object[]{}, -1, "syntax_error.doubling_missing"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_escape", "de", "Unerlaubte Steuersequenz in Zeichenkette."}, new Object[]{}, -1, "syntax_error.illegal_escape"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.unbalanced_escape", "de", "Steuersequenz nicht abgeschlossen."}, new Object[]{}, -1, "syntax_error.unbalanced_escape"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.end_of_file_in_block_comment", "de", "Blockkommentar nicht geschlossen."}, new Object[]{}, -1, "syntax_error.end_of_file_in_block_comment"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.end_of_line_as_character", "de", "Unerlaubtes Zeilenende als Zeichen."}, new Object[]{}, -1, "syntax_error.end_of_line_as_character"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.singleton_var", "de", "Alleinstehende Variable(n) ~, anonyme Variable(n) (_) benutzen."}, new Object[]{}, -1, "syntax_error.singleton_var"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.bracket_balance", "de", "Rechte eckige Klammer (\"]\") fehlt."}, new Object[]{}, -1, "syntax_error.bracket_balance"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.brace_balance", "de", "Rechte geschweifte Klammer (\"}\") fehlt."}, new Object[]{}, -1, "syntax_error.brace_balance"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.parenthesis_balance", "de", "Rechte runde Klammer (\")\") fehlt."}, new Object[]{}, -1, "syntax_error.parenthesis_balance"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.end_of_clause_expected", "de", "Überflüssiges Token."}, new Object[]{}, -1, "syntax_error.end_of_clause_expected"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.operator_clash", "de", "Runde Klammer (\"(\") vor Operator fehlt."}, new Object[]{}, -1, "syntax_error.operator_clash"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.cannot_start_term", "de", "Term fehlt."}, new Object[]{}, -1, "syntax_error.cannot_start_term"));
         
        add("strings", 3, new Clause(0, new Object[]{"existence_error.source_sink", "de", "Datei ~ nicht gefunden."}, new Object[]{}, -1, "existence_error.source_sink"));
         
        add("strings", 3, new Clause(0, new Object[]{"permission_error.open.source_sink", "de", "Kann Datei ~ nicht öffnen."}, new Object[]{}, -1, "permission_error.open.source_sink"));
         
        add("strings", 3, new Clause(0, new Object[]{"resource_error.io_exception", "de", "Datei nicht erstellt oder nicht zugreifbar."}, new Object[]{}, -1, "resource_error.io_exception"));
         
        add("strings", 3, new Clause(0, new Object[]{"resource_error.remote_error", "de", "Fehler von Entfernt erhalten."}, new Object[]{}, -1, "resource_error.remote_error"));
         
        add("strings", 3, new Clause(0, new Object[]{"resource_error.socket_timeout", "de", "Ein-/Ausgabeauszeit."}, new Object[]{}, -1, "resource_error.socket_timeout"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_number", "", "Not a number."}, new Object[]{}, -1, "syntax_error.illegal_number"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_reference", "", "Not a reference."}, new Object[]{}, -1, "syntax_error.illegal_reference"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_layout", "", "Illegal layout character in string."}, new Object[]{}, -1, "syntax_error.illegal_layout"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_unicode", "", "Illegal Unicode character in text."}, new Object[]{}, -1, "syntax_error.illegal_unicode"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.doubling_missing", "", "Quote not doubled."}, new Object[]{}, -1, "syntax_error.doubling_missing"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.illegal_escape", "", "Illegal escape sequence in string."}, new Object[]{}, -1, "syntax_error.illegal_escape"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.unbalanced_escape", "", "Escape sequence not closed."}, new Object[]{}, -1, "syntax_error.unbalanced_escape"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.end_of_file_in_block_comment", "", "Block comment not closed."}, new Object[]{}, -1, "syntax_error.end_of_file_in_block_comment"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.end_of_line_as_character", "", "Illegal end of line as character."}, new Object[]{}, -1, "syntax_error.end_of_line_as_character"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.singleton_var", "", "Singleton variable(s) ~, use anonymous variable(s) (_)."}, new Object[]{}, -1, "syntax_error.singleton_var"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.bracket_balance", "", "Right bracket (\"]\") missing."}, new Object[]{}, -1, "syntax_error.bracket_balance"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.brace_balance", "", "Right brace (\"}\") missing."}, new Object[]{}, -1, "syntax_error.brace_balance"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.parenthesis_balance", "", "Right parenthesis (\")\") missing."}, new Object[]{}, -1, "syntax_error.parenthesis_balance"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.end_of_clause_expected", "", "Superfluous token."}, new Object[]{}, -1, "syntax_error.end_of_clause_expected"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.operator_clash", "", "Parenthesis (\"(\") before operator missing."}, new Object[]{}, -1, "syntax_error.operator_clash"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.cannot_start_term", "", "Term missing."}, new Object[]{}, -1, "syntax_error.cannot_start_term"));
         
        add("strings", 3, new Clause(0, new Object[]{"existence_error.source_sink", "", "File ~ not found."}, new Object[]{}, -1, "existence_error.source_sink"));
         
        add("strings", 3, new Clause(0, new Object[]{"permission_error.open.source_sink", "", "Cannot open file ~."}, new Object[]{}, -1, "permission_error.open.source_sink"));
         
        add("strings", 3, new Clause(0, new Object[]{"resource_error.io_exception", "", "File not created or not accessible."}, new Object[]{}, -1, "resource_error.io_exception"));
         
        add("strings", 3, new Clause(0, new Object[]{"resource_error.remote_error", "", "Got error from remote."}, new Object[]{}, -1, "resource_error.remote_error"));
         
        add("strings", 3, new Clause(0, new Object[]{"resource_error.socket_timeout", "", "Input/output timeout."}, new Object[]{}, -1, "resource_error.socket_timeout"));
         
    }
         

         
    public static void boot7() {
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_infix", 3})}));
         
        add("sys_is_infix", 3, new Clause(0, new Object[]{"xfx", 1, 1}, new Object[]{}, -1, "xfx"));
         
        add("sys_is_infix", 3, new Clause(0, new Object[]{"yfx", 0, 1}, new Object[]{}, -1, "yfx"));
         
        add("sys_is_infix", 3, new Clause(0, new Object[]{"xfy", 1, 0}, new Object[]{}, -1, "xfy"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_prefix", 2})}));
         
        add("sys_is_prefix", 2, new Clause(0, new Object[]{"fx", 1}, new Object[]{}, -1, "fx"));
         
        add("sys_is_prefix", 2, new Clause(0, new Object[]{"fy", 0}, new Object[]{}, -1, "fy"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_postfix", 2})}));
         
        add("sys_is_postfix", 2, new Clause(0, new Object[]{"xf", 1}, new Object[]{}, -1, "xf"));
         
        add("sys_is_postfix", 2, new Clause(0, new Object[]{"yf", 0}, new Object[]{}, -1, "yf"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_term", 3})}));
         
        add("sys_write_term", 3, new Clause(5, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_write_opts"), new Object[]{new Place(2), new Compound("v", new Object[]{"[]", 0, 1200}), new Skeleton("v", new Object[]{new Place(-4), new Place(-5), new Place(-6)})}), new Skeleton(new Cache("set_lastcode"), new Object[]{new Place(0), -1}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(1), new Skeleton("w", new Object[]{1, new Place(4), 0}), new Skeleton("v", new Object[]{new Place(0), new Place(3), new Place(2)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_priority", 3})}));
         
        add("sys_write_priority", 3, new Clause(3, new Object[]{new Place(-3), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_var"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("number"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_number"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("atom"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_atom"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(3, new Object[]{new Place(-3), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("reference"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_put_symbol"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(6, new Object[]{new Skeleton("$RDX", new Object[]{new Place(-3), new Place(-4)}), new Skeleton("w", new Object[]{new Place(-5), new Place(-1), new Place(-1)}), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(4), new Place(-7)}), new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(5), 16}), 0}), new Skeleton(new Cache("integer"), new Object[]{new Place(1)}), new Skeleton(new Cache("integer"), new Object[]{new Place(2)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_atom_radix"), new Object[]{new Place(-2), new Place(2), new Place(1)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_put_nspace"), new Object[]{new Place(4), new Place(3)}), new Skeleton(new Cache("sys_safe_atom"), new Object[]{new Place(4), new Place(0)})}, 0, "$RDX"));
         
        add("sys_write_priority", 3, new Clause(4, new Object[]{new Skeleton("$STR", new Object[]{new Place(-3)}), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(2), new Place(-5)}), new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(3), 16}), 0}), new Skeleton(new Cache("atom"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_atom_string"), new Object[]{new Place(-2), new Place(1)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_safe_atom"), new Object[]{new Place(2), new Place(0)})}, 0, "$STR"));
         
        add("sys_write_priority", 3, new Clause(5, new Object[]{new Skeleton("$CHR", new Object[]{new Place(-3)}), new Skeleton("w", new Object[]{new Place(-4), new Place(-1), new Place(-1)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(3), new Place(-6)}), new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(4), 16}), 0}), new Skeleton(new Cache("integer"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_atom_char"), new Object[]{new Place(-2), new Place(1)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_put_nspace"), new Object[]{new Place(3), new Place(2)}), new Skeleton(new Cache("sys_safe_atom"), new Object[]{new Place(3), new Place(0)})}, 0, "$CHR"));
         
        add("sys_write_priority", 3, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(3), new Place(-6)}), new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(4), 2}), 0}), new Skeleton(new Cache("compound"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_compound"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Skeleton("w", new Object[]{new Place(-1), new Place(-1), new Place(-5)}), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(4), new Place(-2)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 91}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(1), new Skeleton("w", new Object[]{1, 999, new Place(3)}), new Place(4)}), new Skeleton(new Cache("sys_write_list"), new Object[]{new Place(2), new Place(3), new Place(4)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 93})}, 0, "."));
         
        add("sys_write_priority", 3, new Clause(4, new Object[]{new Skeleton("{}", new Object[]{new Place(-3)}), new Skeleton("w", new Object[]{new Place(-1), new Place(-1), new Place(-4)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(3), new Place(-2)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 123}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(1), new Skeleton("w", new Object[]{1, 1200, new Place(2)}), new Place(3)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 125})}, 0, "{}"));
         
        add("sys_write_priority", 3, new Clause(7, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("functor"), new Object[]{new Place(1), new Place(-6), 1}), new Skeleton(new Cache("sys_op"), new Object[]{new Place(4), new Place(-6), new Place(-7), new Place(-8), new Place(-1)}), new Skeleton(new Cache("sys_is_prefix"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_prefix"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(5), new Place(6), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(7, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("functor"), new Object[]{new Place(1), new Place(-6), 1}), new Skeleton(new Cache("sys_op"), new Object[]{new Place(4), new Place(-6), new Place(-7), new Place(-8), new Place(-1)}), new Skeleton(new Cache("sys_is_postfix"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_postfix"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(5), new Place(6), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(8, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("functor"), new Object[]{new Place(1), new Place(-6), 2}), new Skeleton(new Cache("sys_op"), new Object[]{new Place(4), new Place(-6), new Place(-7), new Place(-8), new Place(-1)}), new Skeleton(new Cache("sys_is_infix"), new Object[]{new Place(4), new Place(-6), new Place(-9)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_write_infix"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(5), new Place(6), new Place(4), new Place(7)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_write_compound"), new Object[]{new Place(0), new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_number", 3})}));
         
        add("sys_write_number", 3, new Clause(4, new Object[]{new Place(-3), new Skeleton("w", new Object[]{new Place(-4), new Place(-1), new Place(-1)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("number"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("atom_number"), new Object[]{new Place(-2), new Place(1)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_put_nspace"), new Object[]{new Place(3), new Place(2)}), new Skeleton(new Cache("sys_safe_atom"), new Object[]{new Place(3), new Place(0)})}, 0, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_atom", 3})}));
         
        add("sys_write_atom", 3, new Clause(5, new Object[]{new Place(-3), new Skeleton("w", new Object[]{new Place(-4), new Place(-1), new Place(-1)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 1}), 0}), new Skeleton(new Cache("sys_op"), new Object[]{new Place(1), new Place(-6), new Place(-1), new Place(-1), new Place(-1)}), new Skeleton(new Cache("sys_is_prefix"), new Object[]{new Place(4), new Place(-1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(3), new Place(-2)}), new Skeleton(new Cache("sys_put_lparen"), new Object[]{new Place(0), 1, 0, 1200, new Place(2), new Place(-1)}), new Skeleton(new Cache("sys_put_symbol"), new Object[]{new Place(1), new Place(3)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 41})}, 0, UNDEF_OBJ));
         
        add("sys_write_atom", 3, new Clause(2, new Object[]{new Place(-2), new Place(-1), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_put_symbol"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_prefix", 6})}));
         
        add("sys_write_prefix", 6, new Clause(12, new Object[]{new Place(-2), new Skeleton("w", new Object[]{new Place(-3), new Place(-4), new Place(-5)}), new Place(-6), new Place(-7), new Place(-8), new Place(-9)}, new Object[]{new Skeleton(new Cache("=.."), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(-10), "[]"})})}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(4), new Place(-11)}), new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(4), new Place(-12)}), new Skeleton(new Cache("sys_put_lparen"), new Object[]{new Place(9), new Place(7), new Place(2), new Place(5), new Place(1), new Place(-13)}), new Skeleton(new Cache("sys_put_adjust"), new Object[]{new Place(3), new Place(10), new Place(6), new Place(-12)}), new Skeleton(new Cache("sys_oper_minus"), new Object[]{new Place(0), new Place(11), new Place(-13)}), new Skeleton(new Cache("sys_put_symbol"), new Object[]{new Place(0), new Place(4)}), new Skeleton(new Cache("sys_put_rspace"), new Object[]{new Place(9), new Place(6), new Place(11), new Place(-13)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(5), new Place(7)}), new Place(-8)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(11), new Compound(new Cache("\\"), new Object[]{8})}), new Place(-13)}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(8), new Skeleton("w", new Object[]{new Place(11), new Place(6), new Place(10)}), new Place(4)}), new Skeleton(new Cache("sys_put_rparen"), new Object[]{new Place(9), new Place(7), new Place(2), new Place(5), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_postfix", 6})}));
         
        add("sys_write_postfix", 6, new Clause(11, new Object[]{new Place(-2), new Skeleton("w", new Object[]{new Place(-3), new Place(-4), new Place(-5)}), new Place(-6), new Place(-7), new Place(-8), new Place(-9)}, new Object[]{new Skeleton(new Cache("=.."), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(-10), "[]"})})}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(4), new Place(-11)}), new Skeleton(new Cache("sys_put_lparen"), new Object[]{new Place(9), 1, new Place(2), new Place(5), new Place(1), new Place(-12)}), new Skeleton(new Cache("sys_oper_escape"), new Object[]{new Place(0), new Place(10), new Place(-12)}), new Skeleton(new Cache("sys_oper_side"), new Object[]{new Place(7), new Place(10), new Place(-12)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(5), new Place(7)}), new Place(-9)}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(8), new Skeleton("w", new Object[]{new Place(10), new Place(7), new Place(3)}), new Place(4)}), new Skeleton(new Cache("sys_put_lspace"), new Object[]{new Place(9), new Place(6)}), new Skeleton(new Cache("sys_put_oper"), new Object[]{new Place(0), new Place(4), new Place(-1)}), new Skeleton(new Cache("sys_put_rparen"), new Object[]{new Place(9), 1, new Place(2), new Place(5), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_infix", 7})}));
         
        add("sys_write_infix", 7, new Clause(15, new Object[]{new Place(-2), new Skeleton("w", new Object[]{new Place(-3), new Place(-4), new Place(-5)}), new Place(-6), new Place(-7), new Place(-8), new Place(-9), new Place(-10)}, new Object[]{new Skeleton(new Cache("=.."), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(-11), new Skeleton(".", new Object[]{new Place(-12), "[]"})})})}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(4), new Place(-13)}), new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(4), new Place(-14)}), new Skeleton(new Cache("sys_put_lparen"), new Object[]{new Place(11), new Place(8), new Place(2), new Place(5), new Place(1), new Place(-15)}), new Skeleton(new Cache("sys_put_indent"), new Object[]{new Place(11), new Place(3), new Place(12), new Place(6), new Place(8), new Place(2), new Place(5), new Place(1), new Place(-5)}), new Skeleton(new Cache("sys_oper_escape"), new Object[]{new Place(0), new Place(13), new Place(-16)}), new Skeleton(new Cache("sys_oper_side"), new Object[]{new Place(7), new Place(14), new Place(-16)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(5), new Place(7)}), new Place(-9)}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(9), new Skeleton("w", new Object[]{new Place(14), new Place(7), new Place(3)}), new Place(4)}), new Skeleton(new Cache("sys_put_lformat"), new Object[]{new Place(11), new Place(3), new Place(12), new Place(6)}), new Skeleton(new Cache("sys_put_oper"), new Object[]{new Place(0), new Place(4), new Place(-2)}), new Skeleton(new Cache("sys_put_rformat"), new Object[]{new Place(11), new Place(3), new Place(12), new Place(6), new Place(0), new Place(13)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(5), new Place(8)}), new Place(-2)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(13), new Compound(new Cache("\\"), new Object[]{14})}), new Place(-15)}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(10), new Skeleton("w", new Object[]{new Place(13), new Place(0), new Place(3)}), new Place(4)}), new Skeleton(new Cache("sys_put_rparen"), new Object[]{new Place(11), new Place(8), new Place(2), new Place(5), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_list", 3})}));
         
        add("sys_write_list", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(3), new Place(-2)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 124}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(1), new Skeleton("w", new Object[]{1, 999, new Place(2)}), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_write_list", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(4), new Place(-2)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(0), ", "}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(1), new Skeleton("w", new Object[]{1, 999, new Place(3)}), new Place(4)}), new Skeleton(new Cache("sys_write_list"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_write_list", 3, new Clause(1, new Object[]{"[]", new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "[]"));
         
        add("sys_write_list", 3, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(2), new Place(-5)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(3), 124}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(0), new Skeleton("w", new Object[]{1, 999, new Place(1)}), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_compound", 3})}));
         
        add("sys_write_compound", 3, new Clause(6, new Object[]{new Place(-2), new Skeleton("w", new Object[]{new Place(-1), new Place(-1), new Place(-3)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("=.."), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(-5), new Place(-6)})})}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(2), new Place(-7)}), new Skeleton(new Cache("sys_put_symbol"), new Object[]{new Place(0), new Place(2)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(5), 40}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(3), new Skeleton("w", new Object[]{1, 999, new Place(1)}), new Place(2)}), new Skeleton(new Cache("sys_write_args"), new Object[]{new Place(4), new Place(1), new Place(2)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(5), 41})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_args", 3})}));
         
        add("sys_write_args", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(3), new Place(-6)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(4), ", "}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(0), new Skeleton("w", new Object[]{1, 999, new Place(2)}), new Place(3)}), new Skeleton(new Cache("sys_write_args"), new Object[]{new Place(1), new Place(2), new Place(3)})}, -1, "."));
         
        add("sys_write_args", 3, new Clause(0, new Object[]{"[]", new Place(-1), new Place(-1)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_atom_radix", 3})}));
         
        add("sys_atom_radix", 3, new Clause(3, new Object[]{new Place(-3), 16, new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_atom_radix2"), new Object[]{new Place(1), 16, "0x", new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_atom_radix", 3, new Clause(3, new Object[]{new Place(-3), 8, new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_atom_radix2"), new Object[]{new Place(1), 8, "0o", new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_atom_radix", 3, new Clause(3, new Object[]{new Place(-3), 2, new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_atom_radix2"), new Object[]{new Place(1), 2, "0b", new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_atom_radix", 3, new Clause(2, new Object[]{new Place(-2), new Place(-1), new Place(-3)}, new Object[]{new Skeleton(new Cache("atom_integer"), new Object[]{new Place(0), 10, new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_atom_radix2", 4})}));
         
        add("sys_atom_radix2", 4, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("=<"), new Object[]{0, new Place(4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("atom_integer"), new Object[]{new Place(-2), new Place(2), new Place(4)}), new Skeleton(new Cache("atom_split"), new Object[]{new Place(1), "", new Skeleton(".", new Object[]{new Place(3), new Skeleton(".", new Object[]{new Place(0), "[]"})})})}, 0, UNDEF_OBJ));
         
        add("sys_atom_radix2", 4, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(4)}), new Place(-6)}), new Skeleton(new Cache("atom_integer"), new Object[]{new Place(-2), new Place(2), new Place(4)}), new Skeleton(new Cache("atom_split"), new Object[]{new Place(1), "", new Skeleton(".", new Object[]{"-", new Skeleton(".", new Object[]{new Place(3), new Skeleton(".", new Object[]{new Place(0), "[]"})})})})}, 0, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_atom_string", 2})}));
         
        add("sys_atom_string", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_escape_codes"), new Object[]{new Place(1), new Place(-3), new Compound(".", new Object[]{34, "[]"})}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(0), new Skeleton(".", new Object[]{34, new Place(1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_atom_char", 2})}));
         
        add("sys_atom_char", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("=<"), new Object[]{0, new Place(2)}), new Skeleton(new Cache("=<"), new Object[]{new Place(2), 1114111}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_escape_code"), new Object[]{new Place(2), new Place(-4), "[]"}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Skeleton(".", new Object[]{48, new Skeleton(".", new Object[]{39, new Place(2)})})})}, 0, UNDEF_OBJ));
         
        add("sys_atom_char", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("=<"), new Object[]{-1114111, new Place(2)}), new Skeleton(new Cache("=<"), new Object[]{new Place(2), -1}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(2)}), new Place(-4)}), new Skeleton(new Cache("sys_escape_code"), new Object[]{new Place(2), new Place(-4), "[]"}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Skeleton(".", new Object[]{45, new Skeleton(".", new Object[]{48, new Skeleton(".", new Object[]{39, new Place(2)})})})})}, 0, UNDEF_OBJ));
         
        add("sys_atom_char", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("atom_integer"), new Object[]{new Place(0), 10, new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_var", 2})}));
         
        add("sys_write_var", 2, new Clause(4, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_vars"), new Object[]{new Place(2), new Place(-5)}), new Skeleton(new Cache("sys_find_var"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(2), new Place(-2)}), new Skeleton(new Cache("sys_var_quoted"), new Object[]{new Place(3), new Place(0), new Place(-2)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_safe_atom"), new Object[]{new Place(2), new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_write_var", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_safe_code"), new Object[]{new Place(1), 95}), new Skeleton(new Cache("dg_var_serno"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("atom_integer"), new Object[]{new Place(-4), 10, new Place(0)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_find_var", 3})}));
         
        add("sys_find_var", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("member"), new Object[]{new Skeleton("=", new Object[]{new Place(3), new Place(-5)}), new Place(2)}), new Skeleton(new Cache("=="), new Object[]{new Place(1), new Place(3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_var_quoted", 3})}));
         
        add("sys_var_quoted", 3, new Clause(3, new Object[]{new Place(-3), new Place(-4), new Place(1)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_var_quoted", 3, new Clause(3, new Object[]{new Place(-3), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("\\+"), new Object[]{new Skeleton("sys_proper_var", new Object[]{new Place(1)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_escape_codes"), new Object[]{new Place(1), new Place(-3), new Compound(".", new Object[]{96, "[]"})}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(2), new Skeleton(".", new Object[]{96, new Place(1)})})}, 0, UNDEF_OBJ));
         
        add("sys_var_quoted", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(0)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_proper_var", 1})}));
         
        add("sys_proper_var", 1, new Clause(3, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)})}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(0), new Place(-4)}), new Skeleton(new Cache("sys_proper_var"), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(0), new Place(1)})})}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_proper_var", 2})}));
         
        add("sys_proper_var", 2, new Clause(1, new Object[]{"is_upper", new Skeleton(".", new Object[]{new Place(-1), new Place(-2)})}, new Object[]{new Skeleton(new Cache("sys_proper_atom_name"), new Object[]{new Place(0)})}, -1, "is_upper"));
         
        add("sys_proper_var", 2, new Clause(1, new Object[]{"is_score", new Skeleton(".", new Object[]{new Place(-1), new Place(-2)})}, new Object[]{new Skeleton(new Cache("sys_proper_atom_name"), new Object[]{new Place(0)})}, -1, "is_score"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_adjust", 4})}));
         
        add("sys_put_adjust", 4, new Clause(3, new Object[]{new Place(-3), new Place(-4), new Place(-1), new Place(1)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 4}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_put_adjust", 4, new Clause(4, new Object[]{new Place(-3), new Place(-1), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 12}), 12}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("+"), new Object[]{new Place(1), 3}), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_put_adjust", 4, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1), new Place(0)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_indent", 9})}));
         
        add("sys_put_indent", 9, new Clause(3, new Object[]{new Place(-1), new Place(-3), new Place(-4), new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(1)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 4}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_put_indent", 9, new Clause(3, new Object[]{new Place(-1), new Place(-3), new Place(-1), new Place(-4), new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(1)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 12}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_put_indent", 9, new Clause(4, new Object[]{new Place(-1), new Place(-3), new Place(-1), new Place(-4), new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(-5)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 12}), 12}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("+"), new Object[]{new Place(1), 3}), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_put_indent", 9, new Clause(8, new Object[]{new Place(-3), new Place(-4), new Place(-1), new Place(-1), new Place(-5), new Place(-6), new Place(-7), new Place(-8), new Place(-9)}, new Object[]{new Skeleton(new Cache("sys_needs_paren"), new Object[]{new Place(3), new Place(4), new Place(5), new Place(6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_put_spaces"), new Object[]{new Place(1), 2}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("+"), new Object[]{new Place(2), 3}), new Place(7)})}, 0, UNDEF_OBJ));
         
        add("sys_put_indent", 9, new Clause(1, new Object[]{new Place(-1), new Place(-2), new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(0)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_lparen", 6})}));
         
        add("sys_put_lparen", 6, new Clause(7, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8)}, new Object[]{new Skeleton(new Cache("sys_needs_paren"), new Object[]{new Place(2), new Place(3), new Place(4), new Place(5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_put_lparen2"), new Object[]{new Place(1), new Place(5), new Place(6)})}, 0, UNDEF_OBJ));
         
        add("sys_put_lparen", 6, new Clause(1, new Object[]{new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(-2), new Place(0)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_lparen2", 3})}));
         
        add("sys_put_lparen2", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 2}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 40}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("\\/"), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), new Compound(new Cache("\\"), new Object[]{6})}), 1}), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_put_lparen2", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("put_code"), new Object[]{new Place(0), 40}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("\\/"), new Object[]{new Place(1), 1}), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_rparen", 5})}));
         
        add("sys_put_rparen", 5, new Clause(6, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("sys_needs_paren"), new Object[]{new Place(2), new Place(3), new Place(4), new Place(5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 41})}, 0, UNDEF_OBJ));
         
        add("sys_put_rparen", 5, new Clause(0, new Object[]{new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_needs_paren", 4})}));
         
        add("sys_needs_paren", 4, new Clause(3, new Object[]{new Place(-1), new Place(-3), new Place(-4), new Place(-1)}, new Object[]{new Skeleton(new Cache("<"), new Object[]{new Place(1), new Place(2)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_needs_paren", 4, new Clause(1, new Object[]{0, new Place(-2), new Place(0), new Place(-2)}, new Object[]{new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(0), 8}), 0})}, -1, 0));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_lformat", 4})}));
         
        add("sys_put_lformat", 4, new Clause(4, new Object[]{new Place(-3), new Place(-1), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 4}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_put_lspace"), new Object[]{new Place(1), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_put_lformat", 4, new Clause(3, new Object[]{new Place(-3), new Place(-1), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 12}), 8}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_put_lspace"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_put_lformat", 4, new Clause(2, new Object[]{new Place(-2), new Place(-3), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(1), 3}), new Place(-3)}), new Skeleton(new Cache("nl"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_put_spaces"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_rformat", 6})}));
         
        add("sys_put_rformat", 6, new Clause(5, new Object[]{new Place(-3), new Place(-1), new Place(-4), new Place(-5), new Place(-1), new Place(-6)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 4}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_put_rspace"), new Object[]{new Place(1), new Place(3), new Place(4), new Place(-1)})}, 0, UNDEF_OBJ));
         
        add("sys_put_rformat", 6, new Clause(4, new Object[]{new Place(-3), new Place(-1), new Place(-1), new Place(-4), new Place(-1), new Place(-5)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 12}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_put_rspace"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(-1)})}, 0, UNDEF_OBJ));
         
        add("sys_put_rformat", 6, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-1), new Place(-5), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(3), 12}), 8}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("nl"), new Object[]{new Place(1)}), new Skeleton(new Cache("sys_put_spaces"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_put_rformat", 6, new Clause(2, new Object[]{new Place(-2), new Place(-1), new Place(-1), new Place(-1), new Place(-3), new Place(-1)}, new Object[]{new Skeleton(new Cache("atom_length"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{3, new Place(1)}), new Place(-3)}), new Skeleton(new Cache("sys_put_spaces"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_spaces", 2})}));
         
        add("sys_put_spaces", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache(">"), new Object[]{new Place(2), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(2), 1}), new Place(-4)}), new Skeleton(new Cache("sys_put_spaces"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_put_spaces", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_lspace", 2})}));
         
        add("sys_put_lspace", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 2}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32})}, 0, UNDEF_OBJ));
         
        add("sys_put_lspace", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_rspace", 4})}));
         
        add("sys_put_rspace", 4, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(3), new Compound(new Cache("\\"), new Object[]{6})}), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_put_rspace", 4, new Clause(2, new Object[]{new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("\\/"), new Object[]{new Place(0), 2}), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_oper_side", 3})}));
         
        add("sys_oper_side", 3, new Clause(3, new Object[]{0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("\\/"), new Object[]{new Place(1), 8}), new Place(2)})}, 0, 0));
         
        add("sys_oper_side", 3, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(0), new Compound(new Cache("\\"), new Object[]{8})}), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_oper_minus", 3})}));
         
        add("sys_oper_minus", 3, new Clause(3, new Object[]{"-", new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("\\/"), new Object[]{new Place(1), 4}), new Place(2)})}, 0, "-"));
         
        add("sys_oper_minus", 3, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(0), new Compound(new Cache("\\"), new Object[]{4})}), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_nspace", 2})}));
         
        add("sys_put_nspace", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 4}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 32})}, 0, UNDEF_OBJ));
         
        add("sys_put_nspace", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_oper_escape", 3})}));
         
        add("sys_oper_escape", 3, new Clause(3, new Object[]{",", new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("\\/"), new Object[]{new Place(1), 1}), new Place(2)})}, 0, ","));
         
        add("sys_oper_escape", 3, new Clause(3, new Object[]{"|", new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("\\/"), new Object[]{new Place(1), 1}), new Place(2)})}, 0, "|"));
         
        add("sys_oper_escape", 3, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(0), new Compound(new Cache("\\"), new Object[]{1})}), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_current_stream", 2})}));
         
        add("sys_current_stream", 2, new Clause(1, new Object[]{new Skeleton("v", new Object[]{new Place(-2), new Place(-1), new Place(-1)}), new Place(0)}, new Object[]{}, -1, "v"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_current_flags", 2})}));
         
        add("sys_current_flags", 2, new Clause(1, new Object[]{new Skeleton("v", new Object[]{new Place(-1), new Place(-2), new Place(-1)}), new Place(0)}, new Object[]{}, -1, "v"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_current_vars", 2})}));
         
        add("sys_current_vars", 2, new Clause(1, new Object[]{new Skeleton("v", new Object[]{new Place(-1), new Place(-1), new Place(-2)}), new Place(0)}, new Object[]{}, -1, "v"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_oper", 3})}));
         
        add("sys_put_oper", 3, new Clause(2, new Object[]{",", new Place(-3), ","}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 44})}, 0, ","));
         
        add("sys_put_oper", 3, new Clause(2, new Object[]{"|", new Place(-3), "|"}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("put_code"), new Object[]{new Place(1), 124})}, 0, "|"));
         
        add("sys_put_oper", 3, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(1), new Place(-5)}), new Skeleton(new Cache("sys_symbol_quoted"), new Object[]{new Place(0), new Place(3), new Place(2)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_safe_atom"), new Object[]{new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_symbol", 2})}));
         
        add("sys_put_symbol", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(1), new Place(-4)}), new Skeleton(new Cache("sys_symbol_quoted"), new Object[]{new Place(0), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_safe_atom"), new Object[]{new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_symbol_quoted", 3})}));
         
        add("sys_symbol_quoted", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("reference"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_reference_quoted"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_symbol_quoted", 3, new Clause(3, new Object[]{new Place(-3), new Place(-4), new Place(1)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_symbol_quoted", 3, new Clause(3, new Object[]{new Place(-3), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("\\+"), new Object[]{new Skeleton("sys_proper_atom", new Object[]{new Place(1)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_escape_codes"), new Object[]{new Place(1), new Place(-3), new Compound(".", new Object[]{39, "[]"})}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(2), new Skeleton(".", new Object[]{39, new Place(1)})})}, 0, UNDEF_OBJ));
         
        add("sys_symbol_quoted", 3, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(0)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_reference_quoted", 3})}));
         
        add("sys_reference_quoted", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(2), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("atom_reference"), new Object[]{new Place(3), new Place(1)})}, 0, UNDEF_OBJ));
         
        add("sys_reference_quoted", 3, new Clause(3, new Object[]{new Place(-2), new Place(-1), new Place(-3)}, new Object[]{new Skeleton(new Cache("atom_reference"), new Object[]{new Place(-4), new Place(0)}), new Skeleton(new Cache("atom_concat"), new Object[]{"0r", new Place(2), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_term", 4})}));
         
        add("sys_read_term", 4, new Clause(6, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_read_opts"), new Object[]{new Place(2), new Compound("z", new Object[]{1200, 0}), new Skeleton("z", new Object[]{new Place(-6), new Place(-7)})}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Skeleton("t", new Object[]{"-", new Place(5), new Skeleton("r", new Object[]{new Place(1), new Place(0)}), new Compound("s", new Object[]{"[]", "[]"})}), new Place(-2)}), new Skeleton(new Cache("sys_read_optional"), new Object[]{new Place(-3), new Place(4), new Place(0), new Skeleton("t", new Object[]{new Place(-1), new Place(-1), new Place(-1), new Place(-2)})}), new Skeleton(new Cache("sys_read_results"), new Object[]{new Place(2), new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_optional", 4})}));
         
        add("sys_read_optional", 4, new Clause(3, new Object[]{"end_of_file", new Place(-1), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_token"), new Object[]{"end_of_file", new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, "end_of_file"));
         
        add("sys_read_optional", 4, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_read_end"), new Object[]{".", new Place(2), new Place(3)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_priority", 4})}));
         
        add("sys_read_priority", 4, new Clause(7, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_read_factor"), new Object[]{new Place(4), new Place(-6), new Place(1), new Place(-7), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-8), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_read_secondary"), new Object[]{new Place(6), new Place(4), new Place(0), new Place(1), new Place(5), new Place(2), new Place(3)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_secondary", 7})}));
         
        add("sys_read_secondary", 7, new Clause(8, new Object[]{new Skeleton("atom", new Object[]{new Place(-3)}), new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8), new Place(-9)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_read_infix"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4), new Place(5), new Place(6), new Place(7)})}, 0, "atom"));
         
        add("sys_read_secondary", 7, new Clause(8, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8), new Place(-9)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(1), ","}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_read_infix"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4), new Place(5), new Place(6), new Place(7)})}, 0, ","));
         
        add("sys_read_secondary", 7, new Clause(8, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8), new Place(-9)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(1), "|"}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_read_infix"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4), new Place(5), new Place(6), new Place(7)})}, 0, "|"));
         
        add("sys_read_secondary", 7, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(0), new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_infix", 7})}));
         
        add("sys_read_infix", 7, new Clause(11, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8), new Place(-9)}, new Object[]{new Skeleton(new Cache("sys_op"), new Object[]{new Place(1), new Place(-10), new Place(-11), new Place(-1), new Place(-1)}), new Skeleton(new Cache("sys_is_infix"), new Object[]{new Place(8), new Place(-10), new Place(-12)}), new Skeleton(new Cache(">="), new Object[]{new Place(4), new Place(9)}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(6), new Place(-8)}), new Skeleton(make_defined(new Object[]{new Clause(6, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("<"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(1), new Place(2)}), new Place(3)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_sync_throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"operator_clash"}), new Place(-1)}), new Place(4), new Place(5)})}, 0, UNDEF_OBJ), new Clause(2, new Object[]{new Place(-1), new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ)}), new Object[]{new Place(9), new Place(8), new Place(5), new Place(6), new Place(-8)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(9), new Place(10)}), new Place(-12)}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(-7), new Place(10), new Place(6), new Place(-8)}), new Skeleton(new Cache("=.."), new Object[]{new Place(-12), new Skeleton(".", new Object[]{new Place(1), new Skeleton(".", new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(5), "[]"})})})}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-7), new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_read_secondary"), new Object[]{new Place(5), new Place(10), new Place(3), new Place(4), new Place(9), new Place(6), new Place(7)})}, 0, UNDEF_OBJ));
         
        add("sys_read_infix", 7, new Clause(10, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8), new Place(-9)}, new Object[]{new Skeleton(new Cache("sys_op"), new Object[]{new Place(1), new Place(-10), new Place(-11), new Place(-1), new Place(-1)}), new Skeleton(new Cache("sys_is_postfix"), new Object[]{new Place(8), new Place(-10)}), new Skeleton(new Cache(">="), new Object[]{new Place(4), new Place(9)}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(6), new Place(-8)}), new Skeleton(make_defined(new Object[]{new Clause(6, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("<"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(1), new Place(2)}), new Place(3)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_sync_throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"operator_clash"}), new Place(-1)}), new Place(4), new Place(5)})}, 0, UNDEF_OBJ), new Clause(2, new Object[]{new Place(-1), new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ)}), new Object[]{new Place(9), new Place(8), new Place(5), new Place(6), new Place(-8)}), new Skeleton(new Cache("=.."), new Object[]{new Place(-7), new Skeleton(".", new Object[]{new Place(1), new Skeleton(".", new Object[]{new Place(2), "[]"})})}), new Skeleton(new Cache("="), new Object[]{new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-4), new Place(6), new Place(-8)}), new Skeleton(new Cache("sys_read_secondary"), new Object[]{new Place(2), new Place(5), new Place(3), new Place(4), new Place(9), new Place(6), new Place(7)})}, 0, UNDEF_OBJ));
         
        add("sys_read_infix", 7, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(0), new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_lookup_var", 4})}));
         
        add("sys_lookup_var", 4, new Clause(6, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_sys_current_vars"), new Object[]{new Place(-7), new Place(3), new Place(-5)}), new Skeleton(new Cache("member"), new Object[]{new Skeleton("=", new Object[]{new Place(1), new Place(2)}), new Place(5)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_remove_anon"), new Object[]{new Place(1), new Place(3), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_lookup_var", 4, new Clause(5, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_sys_current_vars"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_set_vars"), new Object[]{new Skeleton(".", new Object[]{new Skeleton("=", new Object[]{new Place(0), new Place(1)}), new Place(4)}), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_anon"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_set_anon"), new Object[]{new Skeleton(".", new Object[]{new Skeleton("=", new Object[]{new Place(0), new Place(1)}), new Place(4)}), new Place(2), new Place(3)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_remove_anon", 3})}));
         
        add("sys_remove_anon", 3, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_anon"), new Object[]{new Place(-6), new Place(2), new Place(-4)}), new Skeleton(new Cache("select"), new Object[]{new Skeleton("=", new Object[]{new Place(1), new Place(-1)}), new Place(4), new Place(-6)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_set_anon"), new Object[]{new Place(4), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_remove_anon", 3, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_current_token", 3})}));
         
        add("sys_current_token", 3, new Clause(4, new Object[]{new Place(-2), new Skeleton("t", new Object[]{new Place(0), new Place(-3), new Place(-4), new Place(-5)}), new Skeleton("t", new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_current_options", 3})}));
         
        add("sys_current_options", 3, new Clause(4, new Object[]{new Place(-2), new Skeleton("t", new Object[]{new Place(-3), new Place(0), new Place(-4), new Place(-5)}), new Skeleton("t", new Object[]{new Place(1), new Place(0), new Place(2), new Place(3)})}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_reach_code", 3})}));
         
        add("sys_reach_code", 3, new Clause(5, new Object[]{new Place(-2), new Skeleton("t", new Object[]{new Place(-3), new Place(-4), new Skeleton("r", new Object[]{new Place(-5), new Place(0)}), new Place(-6)}), new Skeleton("t", new Object[]{new Place(1), new Place(2), new Skeleton("r", new Object[]{new Place(3), new Place(0)}), new Place(4)})}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_sys_current_vars", 3})}));
         
        add("sys_sys_current_vars", 3, new Clause(5, new Object[]{new Place(-2), new Skeleton("t", new Object[]{new Place(-3), new Place(-4), new Place(-5), new Skeleton("s", new Object[]{new Place(0), new Place(-6)})}), new Skeleton("t", new Object[]{new Place(1), new Place(2), new Place(3), new Skeleton("s", new Object[]{new Place(0), new Place(4)})})}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_set_vars", 3})}));
         
        add("sys_set_vars", 3, new Clause(5, new Object[]{new Place(-2), new Skeleton("t", new Object[]{new Place(-3), new Place(-4), new Place(-5), new Skeleton("s", new Object[]{new Place(-1), new Place(-6)})}), new Skeleton("t", new Object[]{new Place(1), new Place(2), new Place(3), new Skeleton("s", new Object[]{new Place(0), new Place(4)})})}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_current_anon", 3})}));
         
        add("sys_current_anon", 3, new Clause(5, new Object[]{new Place(-2), new Skeleton("t", new Object[]{new Place(-3), new Place(-4), new Place(-5), new Skeleton("s", new Object[]{new Place(-6), new Place(0)})}), new Skeleton("t", new Object[]{new Place(1), new Place(2), new Place(3), new Skeleton("s", new Object[]{new Place(4), new Place(0)})})}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_set_anon", 3})}));
         
        add("sys_set_anon", 3, new Clause(5, new Object[]{new Place(-2), new Skeleton("t", new Object[]{new Place(-3), new Place(-4), new Place(-5), new Skeleton("s", new Object[]{new Place(-6), new Place(-1)})}), new Skeleton("t", new Object[]{new Place(1), new Place(2), new Place(3), new Skeleton("s", new Object[]{new Place(4), new Place(0)})})}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_factor", 6})}));
         
        add("sys_read_factor", 6, new Clause(7, new Object[]{new Skeleton("atom", new Object[]{new Place(-3)}), new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_reach_code"), new Object[]{new Place(-2), new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_read_atom"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3), new Place(4), new Place(5), new Place(6)})}, 0, "atom"));
         
        add("sys_read_factor", 6, new Clause(3, new Object[]{"anon", new Place(-1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "anon"));
         
        add("sys_read_factor", 6, new Clause(5, new Object[]{new Skeleton("var", new Object[]{new Place(-3)}), new Place(-4), new Place(-1), 0, new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_lookup_var"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(3), new Place(4)})}, 0, "var"));
         
        add("sys_read_factor", 6, new Clause(6, new Object[]{"[", new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-2), new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_read_list"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3), new Place(4), new Place(5)})}, 0, "["));
         
        add("sys_read_factor", 6, new Clause(6, new Object[]{"{", new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-2), new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_read_set"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3), new Place(4), new Place(5)})}, 0, "{"));
         
        add("sys_read_factor", 6, new Clause(4, new Object[]{"(", new Place(-3), new Place(-1), 0, new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(1), 1200, new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_read_end"), new Object[]{")", new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(2), new Place(3)})}, 0, "("));
         
        add("sys_read_factor", 6, new Clause(3, new Object[]{new Skeleton("number", new Object[]{new Place(-3)}), new Place(1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "number"));
         
        add("sys_read_factor", 6, new Clause(4, new Object[]{new Skeleton("radix", new Object[]{new Place(-3), new Place(-1)}), new Place(1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_options"), new Object[]{new Place(-5), new Place(1), new Place(-3)}), new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(3), 16}), 0}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "radix"));
         
        add("sys_read_factor", 6, new Clause(3, new Object[]{new Skeleton("radix", new Object[]{new Place(-3), new Place(-4)}), new Skeleton("$RDX", new Object[]{new Place(1), new Place(2)}), new Place(-1), 0, new Place(-4), new Place(-3)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(2), new Place(1)})}, 0, "radix"));
         
        add("sys_read_factor", 6, new Clause(3, new Object[]{new Skeleton("reference", new Object[]{new Place(-3)}), new Place(1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "reference"));
         
        add("sys_read_factor", 6, new Clause(4, new Object[]{new Skeleton("codes", new Object[]{new Place(-3)}), new Place(1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_options"), new Object[]{new Place(-5), new Place(1), new Place(-3)}), new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(3), 16}), 0}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "codes"));
         
        add("sys_read_factor", 6, new Clause(5, new Object[]{new Skeleton("codes", new Object[]{new Place(-3)}), new Skeleton("$STR", new Object[]{new Place(-4)}), new Place(-1), 0, new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(2), new Place(1)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(3), new Place(4)})}, 0, "codes"));
         
        add("sys_read_factor", 6, new Clause(4, new Object[]{new Skeleton("code", new Object[]{new Place(-3)}), new Place(1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_current_options"), new Object[]{new Place(-5), new Place(1), new Place(-3)}), new Skeleton(new Cache("=:="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(3), 16}), 0}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "code"));
         
        add("sys_read_factor", 6, new Clause(3, new Object[]{new Skeleton("code", new Object[]{new Place(-3)}), new Skeleton("$CHR", new Object[]{new Place(1)}), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "code"));
         
        add("sys_read_factor", 6, new Clause(2, new Object[]{new Place(-1), new Place(-1), new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_sync_throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"cannot_start_term"}), new Place(-1)}), new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_atom", 7})}));
         
        add("sys_read_atom", 7, new Clause(6, new Object[]{40, new Place(-3), new Place(-4), new Place(-1), 0, new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(-2), 999, new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-7), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_read_args"), new Object[]{new Place(5), new Place(-7), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_read_end"), new Object[]{")", new Place(3), new Place(-5)}), new Skeleton(new Cache("=.."), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(1), new Skeleton(".", new Object[]{new Place(0), new Place(5)})})}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(3), new Place(4)})}, 0, 40));
         
        add("sys_read_atom", 7, new Clause(7, new Object[]{new Place(-3), "-", new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8)}, new Object[]{new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(1), "is_digit"}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-2), new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_read_factor"), new Object[]{new Place(0), new Place(-2), new Place(3), new Place(4), new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_make_negative"), new Object[]{new Place(0), new Place(2)}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(6)})}, 0, UNDEF_OBJ));
         
        add("sys_read_atom", 7, new Clause(9, new Object[]{new Place(-1), new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7), new Place(-8)}, new Object[]{new Skeleton(new Cache("sys_op"), new Object[]{new Place(1), new Place(-9), new Place(-10), new Place(-1), new Place(-1)}), new Skeleton(new Cache("sys_is_prefix"), new Object[]{new Place(7), new Place(-9)}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-2), new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_read_prefix"), new Object[]{new Place(0), new Place(2), new Place(1), new Place(3), new Place(8), new Place(7), new Place(4), new Place(5), new Place(6)})}, 0, UNDEF_OBJ));
         
        add("sys_read_atom", 7, new Clause(2, new Object[]{new Place(-1), new Place(-2), new Place(0), new Place(-1), 0, new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_prefix", 9})}));
         
        add("sys_read_prefix", 9, new Clause(3, new Object[]{",", new Place(-3), new Place(1), new Place(-1), new Place(-1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, ","));
         
        add("sys_read_prefix", 9, new Clause(3, new Object[]{"|", new Place(-3), new Place(1), new Place(-1), new Place(-1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, "|"));
         
        add("sys_read_prefix", 9, new Clause(3, new Object[]{")", new Place(-3), new Place(1), new Place(-1), new Place(-1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, ")"));
         
        add("sys_read_prefix", 9, new Clause(3, new Object[]{"]", new Place(-3), new Place(1), new Place(-1), new Place(-1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, "]"));
         
        add("sys_read_prefix", 9, new Clause(3, new Object[]{"}", new Place(-3), new Place(1), new Place(-1), new Place(-1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, "}"));
         
        add("sys_read_prefix", 9, new Clause(3, new Object[]{".", new Place(-3), new Place(1), new Place(-1), new Place(-1), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_read_prefix", 9, new Clause(7, new Object[]{new Place(-1), new Place(-2), new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(3), new Place(-7), new Place(-8)}, new Object[]{new Skeleton(make_defined(new Object[]{new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("<"), new Object[]{new Place(1), new Place(2)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_sync_throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"operator_clash"}), new Place(-1)}), new Place(3), new Place(4)})}, 0, UNDEF_OBJ), new Clause(2, new Object[]{new Place(-1), new Place(-1), new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ)}), new Object[]{new Place(2), new Place(3), new Place(5), new Place(-7)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("-"), new Object[]{new Place(3), new Place(4)}), new Place(-6)}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(-7)}), new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(-5), new Place(4), new Place(5), new Place(-7)}), new Skeleton(new Cache("=.."), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(1), new Skeleton(".", new Object[]{new Place(3), "[]"})})}), new Skeleton(new Cache("="), new Object[]{new Place(5), new Place(6)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_args", 4})}));
         
        add("sys_read_args", 4, new Clause(5, new Object[]{",", new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(1), 999, new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-3), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_read_args"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4)})}, 0, ","));
         
        add("sys_read_args", 4, new Clause(2, new Object[]{new Place(-1), "[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_list", 6})}));
         
        add("sys_read_list", 6, new Clause(6, new Object[]{"]", new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_reach_code"), new Object[]{new Place(-2), new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_read_atom"), new Object[]{new Place(0), "[]", new Place(1), new Place(2), new Place(3), new Place(4), new Place(5)})}, 0, "]"));
         
        add("sys_read_list", 6, new Clause(4, new Object[]{new Place(-1), new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-1), 0, new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(0), 999, new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-2), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_read_rest"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_read_end"), new Object[]{"]", new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(2), new Place(3)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_rest", 4})}));
         
        add("sys_read_rest", 4, new Clause(5, new Object[]{",", new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(1), 999, new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(-3), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_read_rest"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4)})}, 0, ","));
         
        add("sys_read_rest", 4, new Clause(4, new Object[]{"|", new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(1), 999, new Place(2), new Place(3)})}, 0, "|"));
         
        add("sys_read_rest", 4, new Clause(2, new Object[]{new Place(-1), "[]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_set", 6})}));
         
        add("sys_read_set", 6, new Clause(6, new Object[]{"}", new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_reach_code"), new Object[]{new Place(-2), new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("sys_read_atom"), new Object[]{new Place(0), "{}", new Place(1), new Place(2), new Place(3), new Place(4), new Place(5)})}, 0, "}"));
         
        add("sys_read_set", 6, new Clause(3, new Object[]{new Place(-1), new Skeleton("{}", new Object[]{new Place(-2)}), new Place(-1), 0, new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_read_priority"), new Object[]{new Place(0), 1200, new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_read_end"), new Object[]{"}", new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_read_end", 3})}));
         
        add("sys_read_end", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_current_token"), new Object[]{new Place(1), new Place(2), new Place(-4)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_read_end", 3, new Clause(3, new Object[]{".", new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_sync_throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"end_of_clause_expected"}), new Place(-1)}), new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_read_end", 3, new Clause(3, new Object[]{")", new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_sync_throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"parenthesis_balance"}), new Place(-1)}), new Place(1), new Place(2)})}, 0, ")"));
         
        add("sys_read_end", 3, new Clause(3, new Object[]{"}", new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_sync_throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"brace_balance"}), new Place(-1)}), new Place(1), new Place(2)})}, 0, "}"));
         
        add("sys_read_end", 3, new Clause(2, new Object[]{"]", new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_sync_throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"bracket_balance"}), new Place(-1)}), new Place(0), new Place(1)})}, -1, "]"));
         
    }
         

         
    public static void boot9() {
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"initialization", 1})}));
         
        add("initialization", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Place(0)}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_launch", 0})}));
         
        add("sys_launch", 0, new Clause(1, new Object[]{}, new Object[]{new Skeleton(new Cache("current_prolog_flag"), new Object[]{"argv", new Place(-2)}), new Skeleton(new Cache("sys_trap"), new Object[]{new Skeleton("sys_launch", new Object[]{new Place(0)}), new Place(-2), new Skeleton("sys_print_error", new Object[]{new Place(0)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_launch", 1})}));
         
        add("sys_launch", 1, new Clause(0, new Object[]{"[]"}, new Object[]{new Cache("sys_banner"), new Cache("sys_toplevel")}, -1, "[]"));
         
        add("sys_launch", 1, new Clause(2, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)})}, new Object[]{new Skeleton(new Cache("set_prolog_flag"), new Object[]{"argv", new Place(1)}), new Skeleton(new Cache("ensure_loaded"), new Object[]{new Place(0)})}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_banner", 0})}));
         
        add("sys_banner", 0, new Clause(5, new Object[]{}, new Object[]{new Skeleton(new Cache("current_prolog_flag"), new Object[]{"version_data", new Place(-2)}), new Skeleton(new Cache("=.."), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-1), new Skeleton(".", new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(-3), new Skeleton(".", new Object[]{new Place(-4), new Skeleton(".", new Object[]{new Skeleton(".", new Object[]{new Skeleton("date", new Object[]{new Place(-5)}), new Place(-1)}), new Place(-1)})})})})})}), new Skeleton(new Cache("get_string"), new Object[]{"format.date", new Place(-6)}), new Skeleton(new Cache("sys_time_atom"), new Object[]{new Place(4), new Place(3), new Place(-5)}), new Skeleton(new Cache("current_output"), new Object[]{new Place(-6)}), new Skeleton(new Cache("sys_print_message"), new Object[]{new Skeleton("banner", new Object[]{"player", new Place(0), new Place(1), new Place(2), new Place(3)}), new Place(4)}), new Cache("nl"), new Skeleton(new Cache("sys_print_message"), new Object[]{new Compound("banner", new Object[]{"copyright"}), new Place(4)}), new Cache("nl")}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_toplevel", 0})}));
         
        add("sys_toplevel", 0, new Clause(2, new Object[]{}, new Object[]{new Skeleton(new Cache("current_input"), new Object[]{new Place(-2)}), new Skeleton(new Cache("os_task_current"), new Object[]{new Place(-3)}), new Skeleton(new Cache("setup_once_cleanup"), new Object[]{new Skeleton("asserta", new Object[]{new Skeleton("sys_including", new Object[]{"user", new Place(1), new Place(0)})}), new Skeleton("sys_toplevel_prompt", new Object[]{new Place(0)}), new Skeleton("once", new Object[]{new Skeleton("retract", new Object[]{new Skeleton("sys_including", new Object[]{"user", new Place(1), new Place(0)})})})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_toplevel_prompt", 1})}));
         
        add("sys_toplevel_prompt", 1, new Clause(4, new Object[]{new Place(-3)}, new Object[]{new Cache("repeat"), new Compound(new Cache("put_atom"), new Object[]{"?- "}), new Cache("flush_output"), new Skeleton(new Cache("sys_trap"), new Object[]{new Skeleton("read_term", new Object[]{new Place(1), new Place(-3), new Skeleton(".", new Object[]{new Skeleton("variable_names", new Object[]{new Place(-4)}), "[]"})}), new Place(-5), new Skeleton(",", new Object[]{new Skeleton("sys_print_error", new Object[]{new Place(3)}), "fail"})}), new Skeleton(make_defined(new Object[]{new Clause(2, new Object[]{new Place(-3), new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("=="), new Object[]{new Place(1), "end_of_file"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ), new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_trap"), new Object[]{new Skeleton("sys_query_attended", new Object[]{new Place(0), new Place(1)}), new Place(2), new Skeleton("sys_print_error", new Object[]{new Place(2)})}), new Cache("fail")}, -1, UNDEF_OBJ)}), new Object[]{new Place(1), new Place(2), new Place(3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_query_attended", 2})}));
         
        add("sys_query_attended", 2, new Clause(4, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("$MARK"), new Object[]{new Place(-5)}), new Place(1), new Skeleton(new Cache("$MARK"), new Object[]{new Place(-3)}), new Skeleton(new Cache("sys_answer_show"), new Object[]{new Place(2)}), new Skeleton(make_defined(new Object[]{new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=="), new Object[]{new Place(1), new Place(2)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(3)}), new Cache("sys_listing_period")}, 0, UNDEF_OBJ), new Clause(2, new Object[]{new Place(-1), new Place(-1), new Place(-3)}, new Object[]{new Cache("sys_ask_abort"), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(1)})}, 0, UNDEF_OBJ)}), new Object[]{new Place(3), new Place(1), new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_query_attended", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{new Compound(new Cache("put_atom"), new Object[]{"fail"}), new Cache("sys_listing_period")}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_ask_abort", 0})}));
         
        add("sys_ask_abort", 0, new Clause(1, new Object[]{}, new Object[]{new Cache("flush_output"), new Skeleton(new Cache("get_atom"), new Object[]{10, new Place(-2)}), new Skeleton(new Cache("\\=="), new Object[]{new Place(0), ";\n"})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_answer_show", 1})}));
         
        add("sys_answer_show", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("reverse"), new Object[]{new Place(0), new Place(-3)}), new Skeleton(new Cache("sys_filter_names"), new Object[]{new Place(0), new Place(1), new Place(-2)}), new Skeleton(new Cache("sys_answer_map"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_filter_names", 3})}));
         
        add("sys_filter_names", 3, new Clause(6, new Object[]{new Skeleton(".", new Object[]{new Skeleton("=", new Object[]{new Place(-3), new Place(-4)}), new Place(-5)}), new Place(-6), new Place(-7)}, new Object[]{new Skeleton(new Cache("var"), new Object[]{new Place(2)}), new Skeleton(new Cache("sys_find_var"), new Object[]{new Place(2), new Place(4), new Place(-4)}), new Skeleton(new Cache("="), new Object[]{new Place(2), new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_filter_names"), new Object[]{new Place(3), new Place(4), new Place(5)})}, 0, "."));
         
        add("sys_filter_names", 3, new Clause(3, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-4), new Skeleton(".", new Object[]{new Place(0), new Place(-2)})}, new Object[]{new Skeleton(new Cache("sys_filter_names"), new Object[]{new Place(1), new Place(2), new Place(0)})}, -1, "."));
         
        add("sys_filter_names", 3, new Clause(0, new Object[]{"[]", new Place(-1), "[]"}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_answer_map", 2})}));
         
        add("sys_answer_map", 2, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Skeleton(".", new Object[]{new Place(-4), new Place(-5)})}), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_answer_eq"), new Object[]{new Place(1), new Place(4)}), new Compound(new Cache("put_atom"), new Object[]{", "}), new Skeleton(new Cache("sys_answer_map"), new Object[]{new Skeleton(".", new Object[]{new Place(2), new Place(3)}), new Place(4)})}, 0, "."));
         
        add("sys_answer_map", 2, new Clause(2, new Object[]{new Skeleton(".", new Object[]{new Place(-2), "[]"}), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_answer_eq"), new Object[]{new Place(0), new Place(1)})}, -1, "."));
         
        add("sys_answer_map", 2, new Clause(0, new Object[]{"[]", new Place(-1)}, new Object[]{new Compound(new Cache("put_atom"), new Object[]{"true"})}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_answer_eq", 2})}));
         
        add("sys_answer_eq", 2, new Clause(3, new Object[]{new Skeleton("=", new Object[]{new Place(-2), new Place(-3)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_var_quoted"), new Object[]{new Place(0), 1, new Place(-2)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(0)}), new Compound(new Cache("put_atom"), new Object[]{" = "}), new Skeleton(new Cache("sys_answer_term"), new Object[]{new Place(1), new Place(2)})}, -1, "="));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_answer_term", 2})}));
         
        add("sys_answer_term", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("acyclic_term"), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("write_term"), new Object[]{new Place(1), new Skeleton(".", new Object[]{new Compound("priority", new Object[]{699}), new Skeleton(".", new Object[]{new Skeleton("variable_names", new Object[]{new Place(2)}), new Compound(".", new Object[]{new Compound("quoted", new Object[]{"true"}), "[]"})})})})}, 0, UNDEF_OBJ));
         
        add("sys_answer_term", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{new Compound(new Cache("put_atom"), new Object[]{"<cyclic term>"})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"listing", 0})}));
         
        add("listing", 0, new Clause(0, new Object[]{}, new Object[]{new Skeleton(new Cache("listing"), new Object[]{new Place(-1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"listing", 1})}));
         
        add("listing", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-3)}), new Skeleton(new Cache("listing"), new Object[]{new Place(0), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"listing", 2})}));
         
        add("listing", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("\\+"), new Object[]{new Skeleton("ground", new Object[]{new Place(1)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_listing_pattern"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("listing", 2, new Clause(4, new Object[]{new Skeleton("/", new Object[]{new Place(-3), new Place(-4)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_check_atom"), new Object[]{new Place(1)}), new Skeleton(new Cache("sys_check_integer"), new Object[]{new Place(2)}), new Skeleton(new Cache("sys_listing_user"), new Object[]{new Skeleton("/", new Object[]{new Place(1), new Place(2)}), new Place(3)})}, 0, "/"));
         
        add("listing", 2, new Clause(1, new Object[]{new Place(-2), new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("type_error", new Object[]{"predicate_indicator", new Place(0)}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_pattern", 2})}));
         
        add("sys_listing_pattern", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("current_predicate"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_listing_user"), new Object[]{new Place(0), new Place(1)}), new Cache("fail")}, -1, UNDEF_OBJ));
         
        add("sys_listing_pattern", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_user", 2})}));
         
        add("sys_listing_user", 2, new Clause(4, new Object[]{new Skeleton("/", new Object[]{new Place(-2), new Place(-3)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("\\+"), new Object[]{new Skeleton("sys_listing_stop", new Object[]{new Place(0), new Place(1)})}), new Skeleton(new Cache("sys_listing_multifile"), new Object[]{new Place(0), new Place(1), new Place(2)}), new Skeleton(new Cache("sys_listing_dynamic"), new Object[]{new Place(0), new Place(1), new Place(2)}), new Skeleton(new Cache("functor"), new Object[]{new Place(-5), new Place(0), new Place(1)}), new Skeleton(new Cache("kb_clause_ref"), new Object[]{new Place(3), 0, new Place(-3)}), new Skeleton(new Cache("kb_clause_shard"), new Object[]{new Place(1), new Place(-2)}), new Skeleton(new Cache("\\+"), new Object[]{new Skeleton("sys_listing_stop", new Object[]{new Place(0)})}), new Skeleton(new Cache("kb_clause_data"), new Object[]{new Place(1), new Place(3), new Place(-3), new Place(-2)}), new Skeleton(new Cache("sys_decode_body"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("sys_untrans_body"), new Object[]{new Place(0), new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_listing_show"), new Object[]{new Place(3), new Place(1), new Place(2)}), new Cache("fail")}, -1, "/"));
         
        add("sys_listing_user", 2, new Clause(0, new Object[]{new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_multifile", 3})}));
         
        add("sys_listing_multifile", 3, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_predprop"), new Object[]{new Place(1), new Place(2), new Skeleton("sys_multifile", new Object[]{new Place(-6)})}), new Skeleton(new Cache("\\+"), new Object[]{new Skeleton("sys_listing_stop", new Object[]{new Place(4)})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_listing_write"), new Object[]{new Skeleton(":-", new Object[]{new Skeleton("multifile", new Object[]{new Skeleton("/", new Object[]{new Place(1), new Place(2)})})}), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_listing_multifile", 3, new Clause(0, new Object[]{new Place(-1), new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_dynamic", 3})}));
         
        add("sys_listing_dynamic", 3, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("kb_pred_link"), new Object[]{new Place(1), new Place(2), new Place(-6)}), new Skeleton(new Cache("kb_link_flags"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(4), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_listing_write"), new Object[]{new Skeleton(":-", new Object[]{new Skeleton("dynamic", new Object[]{new Skeleton("/", new Object[]{new Place(1), new Place(2)})})}), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_listing_dynamic", 3, new Clause(0, new Object[]{new Place(-1), new Place(-1), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_show", 3})}));
         
        add("sys_listing_show", 3, new Clause(3, new Object[]{new Place(-3), "true", new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_listing_write"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_listing_show", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_listing_write"), new Object[]{new Skeleton(":-", new Object[]{new Place(0), new Place(1)}), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_write", 2})}));
         
        add("sys_listing_write", 2, new Clause(4, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("term_variables"), new Object[]{new Place(0), new Place(-4)}), new Skeleton(new Cache("term_singletons"), new Object[]{new Place(0), new Place(-5)}), new Skeleton(new Cache("sys_listing_names"), new Object[]{new Place(2), new Place(3), 0, new Place(-5)}), new Skeleton(new Cache("write_term"), new Object[]{new Place(1), new Place(0), new Skeleton(".", new Object[]{new Compound("quoted", new Object[]{"true"}), new Skeleton(".", new Object[]{new Skeleton("variable_names", new Object[]{new Place(3)}), new Compound(".", new Object[]{new Compound("format", new Object[]{"true"}), "[]"})})})}), new Skeleton(new Cache("sys_listing_period"), new Object[]{new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_names", 4})}));
         
        add("sys_listing_names", 4, new Clause(0, new Object[]{"[]", new Place(-1), new Place(-1), "[]"}, new Object[]{}, -1, "[]"));
         
        add("sys_listing_names", 4, new Clause(7, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Place(-6), new Skeleton(".", new Object[]{new Skeleton("=", new Object[]{"_", new Place(1)}), new Place(-7)})}, new Object[]{new Skeleton(new Cache("member"), new Object[]{new Place(-8), new Place(3)}), new Skeleton(new Cache("=="), new Object[]{new Place(6), new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_listing_names"), new Object[]{new Place(2), new Place(3), new Place(4), new Place(5)})}, 0, "."));
         
        add("sys_listing_names", 4, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-4), new Place(-5), new Skeleton(".", new Object[]{new Skeleton("=", new Object[]{new Place(-6), new Place(0)}), new Place(-2)})}, new Object[]{new Skeleton(new Cache("sys_listing_name"), new Object[]{new Place(3), new Place(4)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("+"), new Object[]{new Place(3), 1}), new Place(-5)}), new Skeleton(new Cache("sys_listing_names"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(0)})}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_name", 2})}));
         
        add("sys_listing_name", 2, new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("<"), new Object[]{new Place(1), 26}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("+"), new Object[]{new Place(1), 65}), new Place(-3)}), new Skeleton(new Cache("char_code"), new Object[]{new Place(2), new Place(1)})}, 0, UNDEF_OBJ));
         
        add("sys_listing_name", 2, new Clause(4, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("+"), new Object[]{new Skeleton(new Cache("rem"), new Object[]{new Place(0), 26}), 65}), new Place(-4)}), new Skeleton(new Cache("char_code"), new Object[]{new Place(-5), new Place(2)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("+"), new Object[]{new Skeleton(new Cache("//"), new Object[]{new Place(0), 26}), 1}), new Place(-2)}), new Skeleton(new Cache("atom_integer"), new Object[]{new Place(-4), 10, new Place(0)}), new Skeleton(new Cache("atom_concat"), new Object[]{new Place(3), new Place(2), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_period", 0})}));
         
        add("sys_listing_period", 0, new Clause(1, new Object[]{}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-2)}), new Skeleton(new Cache("sys_listing_period"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_period", 1})}));
         
        add("sys_listing_period", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sys_safe_code"), new Object[]{new Place(0), 46}), new Skeleton(new Cache("nl"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_stop", 1})}));
         
        add("sys_listing_stop", 1, new Clause(0, new Object[]{"system"}, new Object[]{}, -1, "system"));
         
        add("sys_listing_stop", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_prolog_flag"), new Object[]{"system_url", new Place(-3)}), new Skeleton(new Cache("file_directory_name"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sub_atom"), new Object[]{new Place(0), 0, new Place(-1), new Place(-1), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_stop", 2})}));
         
        add("sys_listing_stop", 2, new Clause(0, new Object[]{"sys_op", 5}, new Object[]{}, -1, "sys_op"));
         
        add("sys_listing_stop", 2, new Clause(0, new Object[]{"sys_source", 3}, new Object[]{}, -1, "sys_source"));
         
        add("sys_listing_stop", 2, new Clause(0, new Object[]{"sys_srcprop", 2}, new Object[]{}, -1, "sys_srcprop"));
         
        add("sys_listing_stop", 2, new Clause(0, new Object[]{"sys_predprop", 3}, new Object[]{}, -1, "sys_predprop"));
         
        add("sys_listing_stop", 2, new Clause(0, new Object[]{"sys_lastpred", 3}, new Object[]{}, -1, "sys_lastpred"));
         
        add("sys_listing_stop", 2, new Clause(0, new Object[]{"sys_including", 3}, new Object[]{}, -1, "sys_including"));
         
        add("sys_listing_stop", 2, new Clause(0, new Object[]{"sys_emulated", 2}, new Object[]{}, -1, "sys_emulated"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_multifile_safe"), new Object[]{"strings", 3})}));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"strings", 3})}));
         
        add("strings", 3, new Clause(0, new Object[]{"banner.player", "de", "Dogelog Spieler, Prolog zum Mond, ~.~.~ (~~)"}, new Object[]{}, -1, "banner.player"));
         
        add("strings", 3, new Clause(0, new Object[]{"banner.copyright", "de", "(c) 1985-2024, XLOG Technologies AG, Schweiz"}, new Object[]{}, -1, "banner.copyright"));
         
        add("strings", 3, new Clause(0, new Object[]{"banner.player", "", "Dogelog Player, Prolog to the Moon, ~.~.~ (~~)"}, new Object[]{}, -1, "banner.player"));
         
        add("strings", 3, new Clause(0, new Object[]{"banner.copyright", "", "(c) 1985-2024, XLOG Technologies AG, Switzerland"}, new Object[]{}, -1, "banner.copyright"));
         
    }
         

         
}