package nova;
         

         
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.
         
 * 
         
 * 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.
         
 * 
         
 * 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.
         
 * 
         
 * 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.
         
 * 
         
 * 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[]{"open", 3})}, -1));
         
        add("open", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_open"), new Object[]{new Place(0), new Place(1), null, new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"open", 4})}, -1));
         
        add("open", 4, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6)}, new Object[]{new Skeleton(make_defined(new Object[]{new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(0), 0, new Place(-1), new Place(-1), "http:"})}, -1, UNDEF_OBJ), new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(0), 0, new Place(-1), new Place(-1), "https:"})}, -1, UNDEF_OBJ)}), new Object[]{new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("ir_object_new"), new Object[]{new Place(-2)}), new Skeleton(new Cache("sys_open_opts"), new Object[]{new Place(4), new Place(0)}), new Skeleton(new Cache("sys_open"), new Object[]{new Place(1), new Place(2), new Place(0), new Place(3)}), new Skeleton(new Cache("sys_open_results"), new Object[]{new Place(4), new Place(0)})}, 0, UNDEF_OBJ));
         
        add("open", 4, new Clause(5, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("ir_object_new"), new Object[]{new Place(-6)}), new Skeleton(new Cache("sys_stream_opts"), new Object[]{new Place(3), new Place(4)}), new Skeleton(new Cache("sys_open"), new Object[]{new Place(0), new Place(1), new Place(4), new Place(2)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_open", 4})}, -1));
         
        add("sys_open", 4, new Clause(4, new Object[]{new Place(-3), "read", new Place(-4), new Place(-5)}, new Object[]{new Compound(new Cache("current_prolog_flag"), new Object[]{"read_async", "on"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("os_open_promise_opts"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(-5)}), new Skeleton(new Cache("$YIELD"), new Object[]{new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_open", 4, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("os_open_sync_opts"), new Object[]{new Place(0), new Place(1), new Place(2), new Place(3)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"close", 1})}, -1));
         
        add("close", 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_close_promise"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("$YIELD"), new Object[]{new Place(1)})}, 0, UNDEF_OBJ));
         
        add("close", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("os_close_sync"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"nl", 0})}, -1));
         
        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_atom"), new Object[]{new Place(0), "\n"}), 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})}, -1));
         
        add("nl", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("put_atom"), new Object[]{new Place(0), "\n"}), 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})}, -1));
         
        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})}, -1));
         
        add("put_code", 1, new Clause(3, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("current_output"), new Object[]{new Place(-3)}), new Skeleton(new Cache("char_code"), new Object[]{new Place(-4), 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[]{"put_code", 2})}, -1));
         
        add("put_code", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("char_code"), new Object[]{new Place(-4), new Place(1)}), new Skeleton(new Cache("put_atom"), 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[]{"get_code", 1})}, -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[]{"peek_code", 1})}, -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[]{"put_atom", 1})}, -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[]{"get_atom", 2})}, -1));
         
        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})}, -1));
         
        add("get_atom", 3, new Clause(6, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_atom_opts"), new Object[]{new Place(2), new Compound("v", new Object[]{10, 1, 0}), new Skeleton("v", new Object[]{new Place(-4), new Place(-5), new Place(-6)})}), new Skeleton(new Cache("sys_get_code"), new Object[]{new Place(0), new Place(-7), new Place(3)}), new Skeleton(new Cache("sys_get_code_list"), new Object[]{new Place(5), new Place(2), new Place(4), new Place(0), new Place(-2), new Place(3)}), 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_code_list", 6})}, -1));
         
        add("sys_get_code_list", 6, new Clause(1, new Object[]{-1, new Place(-1), new Place(-1), new Place(-1), "[]", new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, -1));
         
        add("sys_get_code_list", 6, new Clause(2, new Object[]{new Place(-3), new Place(1), new Place(-1), new Place(-1), new Skeleton(".", new Object[]{new Place(1), "[]"}), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_get_code_list", 6, new Clause(2, new Object[]{new Place(-3), new Place(-1), 1, new Place(-1), new Skeleton(".", new Object[]{new Place(1), "[]"}), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_get_code_list", 6, new Clause(5, new Object[]{new Place(-3), new Place(-4), 0, new Place(-5), new Skeleton(".", new Object[]{new Place(1), new Place(-3)}), new Place(-6)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_get_code"), new Object[]{new Place(3), new Place(-2), new Place(4)}), new Skeleton(new Cache("sys_get_code_list"), new Object[]{new Place(0), new Place(2), 0, new Place(3), new Place(1), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_get_code_list", 6, new Clause(6, new Object[]{new Place(-2), new Place(-3), new Place(-4), new Place(-5), new Skeleton(".", new Object[]{new Place(0), new Place(-2)}), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_get_code"), new Object[]{new Place(3), new Place(-7), new Place(4)}), 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_get_code_list"), new Object[]{new Place(5), new Place(1), new Place(2), new Place(3), new Place(0), new Place(4)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_code", 3})}, -1));
         
        add("sys_get_code", 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(3), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("get_code"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_get_code", 3, new Clause(5, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("os_stream_flags"), new Object[]{new Place(0), new Place(-5)}), new Skeleton(new Cache("get_code"), new Object[]{new Place(0), new Place(-6)}), new Skeleton(new Cache("sys_get_code_more"), 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_code_more", 5})}, -1));
         
        add("sys_get_code_more", 5, new Clause(1, new Object[]{13, new Place(-1), new Place(-1), 10, new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, 13));
         
        add("sys_get_code_more", 5, new Clause(5, new Object[]{10, 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(1), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_get_code"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, 10));
         
        add("sys_get_code_more", 5, new Clause(1, new Object[]{new Place(-2), new Place(-1), new Place(-1), new Place(0), new Place(-1)}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_atom_opts", 3})}, -1));
         
        add("sys_atom_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_atom_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_atom_opt"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_atom_opts"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_atom_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_atom_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_atom_opt", 3})}, -1));
         
        add("sys_atom_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_atom_opt", 3, new Clause(4, new Object[]{new Skeleton("stop", 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)})}, 0, "stop"));
         
        add("sys_atom_opt", 3, new Clause(5, new Object[]{new Skeleton("compress", 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, "compress"));
         
        add("sys_atom_opt", 3, new Clause(4, new Object[]{new Skeleton("max", 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)})}, 0, "max"));
         
        add("sys_atom_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[]{"atom_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[]{"write", 1})}, -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), new Compound(".", new Object[]{new Compound("numbervars", new Object[]{"true"}), "[]"})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"write", 2})}, -1));
         
        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), new Compound(".", new Object[]{new Compound("numbervars", new Object[]{"true"}), "[]"})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"writeq", 1})}, -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})}, -1));
         
        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})}, -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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        add("file_property", 2, new Clause(4, 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("ir_object_keys"), new Object[]{new Place(1), new Place(-2)}), new Skeleton(new Cache("member"), new Object[]{new Place(-5), new Place(0)}), new Skeleton(new Cache("ir_object_current"), new Object[]{new Place(1), new Place(3), new Place(-3)}), new Skeleton(new Cache("=.."), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(3), new Skeleton(".", new Object[]{new Place(1), "[]"})})})}, 0, UNDEF_OBJ));
         
        add("file_property", 2, new Clause(4, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("=.."), new Object[]{new Place(2), new Skeleton(".", new Object[]{new Place(-4), new Skeleton(".", new Object[]{new Place(-5), "[]"})})}), new Skeleton(new Cache("sys_prop_map"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("ir_object_current"), 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(3), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("file_property", 2, new Clause(1, new Object[]{new Place(-1), new Place(-2)}, new Object[]{new Skeleton(new Cache("=.."), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(-1), "[]"})})}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Skeleton("domain_error", new Object[]{"prolog_flag", 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_prop_map", 2})}, -1));
         
        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_usage_predicate"), new Object[]{"file_directory_name", 2})}, -1));
         
        add("file_directory_name", 2, new Clause(4, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(make_defined(new Object[]{new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("last_sub_atom"), new Object[]{new Place(1), new Place(2), new Place(-1), new Place(-1), "/"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ), new Clause(1, new Object[]{new Place(-1), new Place(-2)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), -1})}, -1, UNDEF_OBJ)}), new Object[]{new Place(0), new Place(-4)}), new Skeleton(make_defined(new Object[]{new Clause(3, new Object[]{new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("last_sub_atom"), new Object[]{new Place(1), new Place(2), new Place(-1), new Place(-1), "\\"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ), new Clause(1, new Object[]{new Place(-1), new Place(-2)}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(0), -1})}, -1, UNDEF_OBJ)}), new Object[]{new Place(0), new Place(-5)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("max"), new Object[]{new Place(2), new Place(3)}), new Place(-5)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("+"), new Object[]{new Place(3), 1}), new Place(-5)}), new Skeleton(new Cache("sub_atom"), new Object[]{new Place(0), 0, new Place(3), new Place(-1), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"file_base_name", 2})}, -1));
         
        add("file_base_name", 2, new Clause(5, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("atom_length"), new Object[]{new Place(0), new Place(-4)}), new Skeleton(make_defined(new Object[]{new Clause(3, new Object[]{new Place(-3), new Place(-4), new Place(-1)}, new Object[]{new Skeleton(new Cache("last_sub_atom"), new Object[]{new Place(1), new Place(-1), new Place(-1), new Place(2), "/"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ), 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)}), new Object[]{new Place(0), new Place(-5), new Place(2)}), new Skeleton(make_defined(new Object[]{new Clause(3, new Object[]{new Place(-3), new Place(-4), new Place(-1)}, new Object[]{new Skeleton(new Cache("last_sub_atom"), new Object[]{new Place(1), new Place(-1), new Place(-1), new Place(2), "\\"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ), 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)}), new Object[]{new Place(0), new Place(-6), new Place(2)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("min"), new Object[]{new Place(3), new Place(4)}), new Place(-6)}), new Skeleton(new Cache("sub_atom"), new Object[]{new Place(0), new Place(-1), new Place(4), 0, new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"absolute_file_name", 2})}, -1));
         
        add("absolute_file_name", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("current_prolog_flag"), new Object[]{"base_url", new Place(-4)}), new Skeleton(new Cache("sys_file_combine"), 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[]{"absolute_file_name", 3})}, -1));
         
        add("absolute_file_name", 3, new Clause(4, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("current_prolog_flag"), new Object[]{"base_url", new Place(-5)}), new Skeleton(new Cache("sys_absolute_opts"), new Object[]{new Place(2), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_file_combine"), new Object[]{new Place(3), 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_absolute_opts", 3})}, -1));
         
        add("sys_absolute_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_absolute_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_absolute_opt"), new Object[]{new Place(1), new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_absolute_opts"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_absolute_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_absolute_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_absolute_opt", 3})}, -1));
         
        add("sys_absolute_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_absolute_opt", 3, new Clause(2, new Object[]{new Skeleton("relative_to", new Object[]{new Place(-3)}), new Place(-1), new Place(1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "relative_to"));
         
        add("sys_absolute_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[]{"absolute_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_file_combine", 3})}, -1));
         
        add("sys_file_combine", 3, new Clause(3, new Object[]{new Place(-1), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("is_absolute_file_name"), new Object[]{new Place(1)}), 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_file_combine", 3, new Clause(4, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(make_defined(new Object[]{new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(0), 0, new Place(-1), new Place(-1), "../"})}, -1, UNDEF_OBJ), new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(0), 0, new Place(-1), new Place(-1), "..\\"})}, -1, UNDEF_OBJ)}), new Object[]{new Place(2)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sub_atom"), new Object[]{new Place(2), 3, new Place(-1), 0, new Place(-4)}), 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(1), 0, new Place(-1), 1, new Place(-3)}), new Skeleton(new Cache("sys_file_combine"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_file_combine", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("file_directory_name"), new Object[]{new Place(0), new Place(-2)}), new Skeleton(new Cache("atom_concat"), 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[]{"is_absolute_file_name", 1})}, -1));
         
        add("is_absolute_file_name", 1, new Clause(4, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("atom_length"), new Object[]{new Place(0), new Place(-3)}), new Skeleton(make_defined(new Object[]{new Clause(3, new Object[]{new Place(-3), new Place(-4), new Place(-1)}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(1), new Place(2), new Place(-1), new Place(-1), "/"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ), 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)}), new Object[]{new Place(0), new Place(-4), new Place(1)}), new Skeleton(make_defined(new Object[]{new Clause(3, new Object[]{new Place(-3), new Place(-4), new Place(-1)}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(1), new Place(2), new Place(-1), new Place(-1), "\\"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ), 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)}), new Object[]{new Place(0), new Place(-5), new Place(1)}), new Skeleton(new Cache("$EVAL"), new Object[]{new Skeleton(new Cache("min"), new Object[]{new Place(2), new Place(3)}), new Place(-5)}), new Skeleton(make_defined(new Object[]{new Clause(3, new Object[]{new Place(-3), new Place(-4), new Place(-1)}, new Object[]{new Skeleton(new Cache("=="), new Object[]{new Place(1), 0}), 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), new Clause(3, new Object[]{new Place(-3), new Place(-1), new Place(-4)}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(2), new Place(-4), new Place(-1), new Place(-1), ":"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("<"), new Object[]{new Place(2), new Place(1)})}, 0, UNDEF_OBJ)}), new Object[]{new Place(3), new Place(1), new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_multifile_safe"), new Object[]{"strings", 3})}, -1));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"strings", 3})}, -1));
         
        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 Ganzzahl (nicht zwischen - 2^31 und 2^31-1)."}, new Object[]{}, -1, "representation_error.int"));
         
        add("strings", 3, new Clause(0, new Object[]{"representation_error.max_arity", "de", "Unerlaubte Stelligkeit (nicht kleiner oder gleich 2^31-1)."}, new Object[]{}, -1, "representation_error.max_arity"));
         
        add("strings", 3, new Clause(0, new Object[]{"domain_error.prolog_flag", "de", "Argument sollte 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 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 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 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[]{"domain_error.time_format", "de", "Argument sollte Zeitformat sein, gefunden $."}, new Object[]{}, -1, "domain_error.time_format"));
         
        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.float", "de", "Argument sollte Gleitzahl sein, gefunden $."}, new Object[]{}, -1, "type_error.float"));
         
        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[]{"permission_error.modify.flag", "de", "Kann schreibgeschütztes Flag $ nicht aktualisieren."}, new Object[]{}, -1, "permission_error.modify.flag"));
         
        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 integer (not between - 2^31 and 2^31-1)."}, new Object[]{}, -1, "representation_error.int"));
         
        add("strings", 3, new Clause(0, new Object[]{"representation_error.max_arity", "", "Illegal arity (not less or equal 2^31-1)."}, new Object[]{}, -1, "representation_error.max_arity"));
         
        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[]{"domain_error.time_format", "", "Argument should be time format, found $."}, new Object[]{}, -1, "domain_error.time_format"));
         
        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.float", "", "Argument should be a float, found $."}, new Object[]{}, -1, "type_error.float"));
         
        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"));
         
        add("strings", 3, new Clause(0, new Object[]{"permission_error.modify.flag", "", "Can\'t modify read-only flag $."}, new Object[]{}, -1, "permission_error.modify.flag"));
         
    }
         

         
    public static void boot6() {
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_code_class", 2})}, -1));
         
        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_category"), 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})}, -1));
         
        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})}, -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})}, -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})}, -1));
         
        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("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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_make_variable", 2})}, -1));
         
        add("sys_make_variable", 2, new Clause(2, new Object[]{new Skeleton(".", new Object[]{new Place(-3), "[]"}), "anon"}, new Object[]{new Skeleton(new Cache("code_category"), new Object[]{new Place(1), 23}), 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})}, -1));
         
        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("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})}, -1));
         
        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("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("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("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("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("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_decimal"), 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("sys_next_code"), new Object[]{new Place(2), new Place(-4)}), new Skeleton(new Cache("sys_get_decimal"), 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("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})}, -1));
         
        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("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("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})}, -1));
         
        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("sys_next_code"), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_get_double", 3, new Clause(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_decimal", 3})}, -1));
         
        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("code_category"), new Object[]{new Place(1), 9}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), 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("code_category"), new Object[]{new Place(4), 9}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), 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(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("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("$CUT"), new Object[]{new Place(0)}), 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_decimal", 3, new Clause(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_fraction", 3})}, -1));
         
        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("code_category"), new Object[]{new Place(1), 9}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), 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("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("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_exponent", 3})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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})}, -1));
         
        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("code_category"), new Object[]{new Place(1), 9}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_expo", 1})}, -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})}, -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("code_category"), new Object[]{new Place(0), 9})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_sign", 1})}, -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})}, -1));
         
        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("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})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_skip_block", 2})}, -1));
         
        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("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})}, -1));
         
        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("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})}, -1));
         
        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})}, -1));
         
        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("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("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("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("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})}, -1));
         
        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})}, -1));
         
        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("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("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})}, -1));
         
        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("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(1, new Object[]{"[]", new Place(-1), new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_get_char", 3})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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("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("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("$CUT"), new Object[]{new Place(0)}), 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})}, -1));
         
        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("sys_next_code"), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_get_skip", 4, new Clause(1, new Object[]{new Place(-2), new Place(0), 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_get_backslash", 4})}, -1));
         
        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("sys_next_code"), new Object[]{new Place(1), new Place(2)})}, 0, "."));
         
        add("sys_get_backslash", 4, new Clause(1, new Object[]{new Place(-2), new Place(0), 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_get_radix", 5})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{new Place(-2), new Place(0), 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_is_radix", 2})}, -1));
         
        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})}, -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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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("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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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_atom", 3})}, -1));
         
        add("sys_safe_atom", 3, new Clause(6, new Object[]{new Place(-3), new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(2), 0, 1, new Place(-1), new Place(-6)}), new Skeleton(new Cache("char_code"), new Object[]{new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("ir_object_current"), new Object[]{new Place(1), "last", new Place(-2)}), new Skeleton(new Cache("sys_code_class"), new Object[]{new Place(0), new Place(-7)}), new Skeleton(new Cache("sys_safe_space"), new Object[]{new Place(5), new Place(1), new Place(0), new Place(4), new Place(3)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_safe_atom", 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_space", 5})}, -1));
         
        add("sys_safe_space", 5, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Place(-5), new Place(-6), new Place(-1)}, new Object[]{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_safe_name"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_safe_space", 5, new Clause(5, new Object[]{"is_graphic", 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_safe_symbol"), new Object[]{new Place(1), new Place(2), new Place(3), new Place(4)})}, 0, "is_graphic"));
         
        add("sys_safe_space", 5, new Clause(4, new Object[]{"is_solo", new Place(-3), new Place(-4), new Place(-5), new Place(-1)}, 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, "is_solo"));
         
        add("sys_safe_space", 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_safe_name", 3})}, -1));
         
        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_atom"), new Object[]{new Place(1), " "})}, 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_atom"), new Object[]{new Place(1), " "})}, 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", 4})}, -1));
         
        add("sys_safe_symbol", 4, new Clause(3, new Object[]{new Place(-3), new Place(-1), new Place(-4), new Place(-1)}, 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_atom"), new Object[]{new Place(1), " "})}, 0, UNDEF_OBJ));
         
        add("sys_safe_symbol", 4, new Clause(4, new Object[]{new Place(-3), 45, new Place(-4), new Place(-5)}, new Object[]{new Skeleton(new Cache("=\\="), new Object[]{new Skeleton(new Cache("/\\"), new Object[]{new Place(3), 4}), 0}), new Skeleton(new Cache("code_category"), new Object[]{new Place(2), 9}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(1), " "})}, 0, UNDEF_OBJ));
         
        add("sys_safe_symbol", 4, new Clause(0, new Object[]{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_safe_quote", 2})}, -1));
         
        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_atom"), new Object[]{new Place(1), " "})}, 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_atom"), new Object[]{new Place(1), " "})}, 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_atom"), new Object[]{new Place(1), " "})}, 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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        add("sys_convert_quote", 3, new Clause(4, new Object[]{new Place(-3), new Skeleton(".", new Object[]{92, new Place(-4)}), new Place(-5)}, new Object[]{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("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("sys_convert_quote"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_convert_quote", 3, new Clause(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_sep", 2})}, -1));
         
        add("sys_convert_sep", 2, new Clause(1, new Object[]{new Skeleton(".", new Object[]{13, new Skeleton(".", new Object[]{10, new Place(-2)})}), new Place(0)}, new Object[]{}, -1, "."));
         
        add("sys_convert_sep", 2, new Clause(1, new Object[]{new Skeleton(".", new Object[]{10, new Place(-2)}), new Place(0)}, new Object[]{}, -1, "."));
         
        add("sys_convert_sep", 2, new Clause(1, new Object[]{new Skeleton(".", new Object[]{13, new Place(-2)}), new Place(0)}, new Object[]{}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_convert_char", 3})}, -1));
         
        add("sys_convert_char", 3, new Clause(4, new Object[]{new Place(-3), new Skeleton(".", new Object[]{92, new Place(-4)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), 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 Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-4)}, new Object[]{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(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        add("sys_convert_char", 3, new Clause(3, new Object[]{new Place(-1), new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-4)}, new Object[]{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(1), new Place(2)})}, -1, UNDEF_OBJ));
         
        add("sys_convert_char", 3, new Clause(1, new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(0), 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_code", 3})}, -1));
         
        add("sys_convert_code", 3, new Clause(3, new Object[]{39, new Skeleton(".", new Object[]{39, new Place(-3)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), 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})}, -1));
         
        add("sys_convert_double", 2, new Clause(3, new Object[]{new Skeleton(".", new Object[]{39, 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_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})}, -1));
         
        add("sys_convert_escape", 3, new Clause(5, new Object[]{new Place(-3), new Skeleton(".", new Object[]{new Place(-4), new Place(-5)}), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_is_escape"), new Object[]{new Place(2), new Place(1)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("="), new Object[]{new Place(3), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_convert_escape", 3, new Clause(6, new Object[]{new Place(-3), new Skeleton(".", new Object[]{new Place(-4), new Place(-5)}), new Place(-6)}, new Object[]{new Skeleton(new Cache("sys_is_radix"), new Object[]{new Place(2), 8}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_convert_radix"), new Object[]{new Place(-2), 8, new Place(3), new Place(-5)}), 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("sys_convert_backslash"), new Object[]{new Place(3), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_convert_escape", 3, new Clause(5, new Object[]{new Place(-3), new Skeleton(".", new Object[]{120, new Place(-4)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), 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("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 Skeleton(".", new Object[]{new Place(1), new Place(-4)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("sys_is_meta"), new Object[]{new Place(1)}), 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})}, -1));
         
        add("sys_convert_backslash", 2, new Clause(3, new Object[]{new Skeleton(".", new Object[]{92, 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_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})}, -1));
         
        add("sys_convert_radix", 4, new Clause(6, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Skeleton(".", new Object[]{new Place(1), new Place(-6)}), new Place(-7)}, new Object[]{new Skeleton(new Cache("sys_is_radix"), new Object[]{new Place(1), new Place(3)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{"[]", new Place(-1), new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_stream_opts", 2})}, -1));
         
        add("sys_stream_opts", 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_stream_opts", 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_stream_opt"), new Object[]{new Place(1), new Place(3)}), new Skeleton(new Cache("sys_stream_opts"), new Object[]{new Place(2), new Place(3)})}, 0, "."));
         
        add("sys_stream_opts", 2, new Clause(1, new Object[]{"[]", new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "[]"));
         
        add("sys_stream_opts", 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_stream_opt", 2})}, -1));
         
        add("sys_stream_opt", 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_stream_opt", 2, new Clause(3, new Object[]{new Skeleton("type", 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_check_type"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(2), "encoding", new Place(1)})}, 0, "type"));
         
        add("sys_stream_opt", 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("domain_error", new Object[]{"open_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_check_type", 2})}, -1));
         
        add("sys_check_type", 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_check_type", 2, new Clause(1, new Object[]{"text", "utf8"}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "text"));
         
        add("sys_check_type", 2, new Clause(1, new Object[]{"binary", "latin1"}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "binary"));
         
        add("sys_check_type", 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[]{"type", 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_open_opts", 2})}, -1));
         
        add("sys_open_opts", 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_open_opts", 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_open_opt"), new Object[]{new Place(1), new Place(3)}), new Skeleton(new Cache("sys_open_opts"), new Object[]{new Place(2), new Place(3)})}, 0, "."));
         
        add("sys_open_opts", 2, new Clause(1, new Object[]{"[]", new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "[]"));
         
        add("sys_open_opts", 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_open_opt", 2})}, -1));
         
        add("sys_open_opt", 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_open_opt", 2, new Clause(3, new Object[]{new Skeleton("method", 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_check_atom"), new Object[]{new Place(1)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(2), "method", new Place(1)})}, 0, "method"));
         
        add("sys_open_opt", 2, new Clause(3, new Object[]{new Skeleton("headers", new Object[]{new Place(-3)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("ir_object_new"), new Object[]{new Place(-2)}), new Skeleton(new Cache("sys_header_opts"), new Object[]{new Place(1), new Place(0)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(2), "headers", new Place(0)})}, 0, "headers"));
         
        add("sys_open_opt", 2, new Clause(3, new Object[]{new Skeleton("body", 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_check_atom"), new Object[]{new Place(1)}), new Skeleton(new Cache("ir_object_new"), new Object[]{new Place(-2)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(0), "text", new Place(1)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(2), "body", new Place(0)})}, 0, "body"));
         
        add("sys_open_opt", 2, new Clause(4, new Object[]{new Skeleton("body", 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("ir_object_new"), new Object[]{new Place(-2)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(0), "text", new Place(1)}), new Skeleton(new Cache("sys_stream_opts"), new Object[]{new Place(2), new Place(0)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(3), "body", new Place(0)})}, 0, "body"));
         
        add("sys_open_opt", 2, new Clause(3, new Object[]{new Skeleton("type", 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_check_type"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(2), "encoding", new Place(1)})}, 0, "type"));
         
        add("sys_open_opt", 2, new Clause(1, new Object[]{new Skeleton("uri", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "uri"));
         
        add("sys_open_opt", 2, new Clause(1, new Object[]{new Skeleton("status", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "status"));
         
        add("sys_open_opt", 2, new Clause(1, new Object[]{new Skeleton("fields", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "fields"));
         
        add("sys_open_opt", 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("domain_error", new Object[]{"open_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_header_opts", 2})}, -1));
         
        add("sys_header_opts", 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_header_opts", 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_header_opt"), new Object[]{new Place(1), new Place(3)}), new Skeleton(new Cache("sys_header_opts"), new Object[]{new Place(2), new Place(3)})}, 0, "."));
         
        add("sys_header_opts", 2, new Clause(1, new Object[]{"[]", new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "[]"));
         
        add("sys_header_opts", 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_header_opt", 2})}, -1));
         
        add("sys_header_opt", 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_header_opt", 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_atom"), new Object[]{new Place(2)}), new Skeleton(new Cache("ir_object_set"), new Object[]{new Place(3), new Place(1), new Place(2)})}, 0, "-"));
         
        add("sys_header_opt", 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[]{"pair", 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_open_results", 2})}, -1));
         
        add("sys_open_results", 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_open_result"), new Object[]{new Place(0), new Place(2)}), new Skeleton(new Cache("sys_open_results"), new Object[]{new Place(1), new Place(2)})}, -1, "."));
         
        add("sys_open_results", 2, 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_open_result", 2})}, -1));
         
        add("sys_open_result", 2, new Clause(0, new Object[]{new Skeleton("method", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{}, -1, "method"));
         
        add("sys_open_result", 2, new Clause(0, new Object[]{new Skeleton("headers", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{}, -1, "headers"));
         
        add("sys_open_result", 2, new Clause(1, new Object[]{new Skeleton("body", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "body"));
         
        add("sys_open_result", 2, new Clause(0, new Object[]{new Skeleton("body", new Object[]{new Place(-1), new Place(-1)}), new Place(-1)}, new Object[]{}, -1, "body"));
         
        add("sys_open_result", 2, new Clause(0, new Object[]{new Skeleton("type", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{}, -1, "type"));
         
        add("sys_open_result", 2, new Clause(2, new Object[]{new Skeleton("uri", new Object[]{new Place(-2)}), new Place(-3)}, new Object[]{new Skeleton(new Cache("ir_object_current"), new Object[]{new Place(1), "uri", new Place(0)})}, -1, "uri"));
         
        add("sys_open_result", 2, new Clause(2, new Object[]{new Skeleton("status", new Object[]{new Place(-2)}), new Place(-3)}, new Object[]{new Skeleton(new Cache("ir_object_current"), new Object[]{new Place(1), "status", new Place(0)})}, -1, "status"));
         
        add("sys_open_result", 2, new Clause(2, new Object[]{new Skeleton("fields", new Object[]{new Place(-2)}), new Place(-3)}, new Object[]{new Skeleton(new Cache("ir_object_current"), new Object[]{new Place(1), "fields", new Place(-3)}), new Skeleton(new Cache("sys_header_results"), new Object[]{new Place(1), new Place(0)})}, -1, "fields"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_header_results", 2})}, -1));
         
        add("sys_header_results", 2, new Clause(3, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("ir_object_keys"), new Object[]{new Place(0), new Place(-4)}), new Skeleton(new Cache("sys_header_results"), 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_header_results", 3})}, -1));
         
        add("sys_header_results", 3, new Clause(0, new Object[]{"[]", new Place(-1), "[]"}, new Object[]{}, -1, "[]"));
         
        add("sys_header_results", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Place(-4), new Skeleton(".", new Object[]{new Skeleton("-", new Object[]{new Place(0), new Place(-5)}), new Place(-6)})}, new Object[]{new Skeleton(new Cache("ir_object_current"), new Object[]{new Place(2), new Place(0), new Place(3)}), new Skeleton(new Cache("sys_header_results"), new Object[]{new Place(1), new Place(2), new Place(4)})}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_opts", 3})}, -1));
         
        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})}, -1));
         
        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(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("domain_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})}, -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})}, -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})}, -1));
         
        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})}, -1));
         
        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(3, new Object[]{new Skeleton("end_of_term", new Object[]{new Place(-3)}), new Skeleton("z", new Object[]{new Place(-4), new Place(-1)}), 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_check_end_of_term"), new Object[]{new Place(1), new Place(2)})}, 0, "end_of_term"));
         
        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("domain_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_check_end_of_term", 2})}, -1));
         
        add("sys_check_end_of_term", 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_check_end_of_term", 2, new Clause(1, new Object[]{"dot", 0}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "dot"));
         
        add("sys_check_end_of_term", 2, new Clause(1, new Object[]{"eof", 1}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "eof"));
         
        add("sys_check_end_of_term", 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("domain_error", new Object[]{"end_of_term", 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})}, -1));
         
        add("sys_read_results", 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_read_result"), new Object[]{new Place(0), new Place(2)}), new Skeleton(new Cache("sys_read_results"), new Object[]{new Place(1), new Place(2)})}, -1, "."));
         
        add("sys_read_results", 2, 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_read_result", 2})}, -1));
         
        add("sys_read_result", 2, new Clause(2, new Object[]{new Skeleton("variable_names", new Object[]{new Place(-2)}), new Skeleton("s", new Object[]{new Place(-3), new Place(-1)})}, new Object[]{new Skeleton(new Cache("reverse"), new Object[]{new Place(1), new Place(0)})}, -1, "variable_names"));
         
        add("sys_read_result", 2, new Clause(2, new Object[]{new Skeleton("singletons", new Object[]{new Place(-2)}), new Skeleton("s", new Object[]{new Place(-1), new Place(-3)})}, new Object[]{new Skeleton(new Cache("reverse"), new Object[]{new Place(1), new Place(0)})}, -1, "singletons"));
         
        add("sys_read_result", 2, new Clause(0, new Object[]{new Skeleton("priority", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{}, -1, "priority"));
         
        add("sys_read_result", 2, new Clause(0, new Object[]{new Skeleton("end_of_term", new Object[]{new Place(-1)}), new Place(-1)}, new Object[]{}, -1, "end_of_term"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_opt_boolean", 4})}, -1));
         
        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})}, -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})}, -1));
         
        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})}, -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})}, -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})}, -1));
         
        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(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_escape_code", 3})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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("$CUT"), new Object[]{new Place(0)}), 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("$CUT"), new Object[]{new Place(0)}), 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("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(0), 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_escape_code2", 3})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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 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 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})}, -1));
         
        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 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(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_polate", 3})}, -1));
         
        add("sys_polate", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("atom_codes"), new Object[]{new Place(1), new Place(-3)}), new Skeleton(new Cache("sys_polate_format"), 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_polate_format", 4})}, -1));
         
        add("sys_polate_format", 4, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Skeleton(".", new Object[]{36, new Skeleton(".", new Object[]{36, 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(1), new Skeleton(".", new Object[]{new Place(-3), new Place(-2)})}), new Skeleton(new Cache("write"), new Object[]{new Place(2), new Place(1)}), new Skeleton(new Cache("sys_polate_format"), new Object[]{new Place(0), new Place(2), new Place(3), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_polate_format", 4, new Clause(5, new Object[]{new Place(-3), new Place(-4), new Skeleton(".", new Object[]{36, 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(1), new Skeleton(".", new Object[]{new Place(-3), new Place(-2)})}), new Skeleton(new Cache("writeq"), new Object[]{new Place(2), new Place(1)}), new Skeleton(new Cache("sys_polate_format"), new Object[]{new Place(0), new Place(2), new Place(3), new Place(4)})}, 0, UNDEF_OBJ));
         
        add("sys_polate_format", 4, new Clause(7, new Object[]{new Place(-3), new Place(-4), new Skeleton(".", new Object[]{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("sys_polate_text"), new Object[]{new Place(-2), new Place(4), new Place(-6)}), new Skeleton(new Cache("atom_codes"), new Object[]{new Place(-8), new Skeleton(".", new Object[]{new Place(3), new Place(0)})}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(2), new Place(6)}), new Skeleton(new Cache("sys_polate_format"), new Object[]{new Place(1), new Place(2), new Place(4), new Place(5)})}, 0, UNDEF_OBJ));
         
        add("sys_polate_format", 4, new Clause(1, new Object[]{"[]", new Place(-1), new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_polate_text", 3})}, -1));
         
        add("sys_polate_text", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Skeleton(".", new Object[]{new Place(1), new Place(-5)}), new Place(-6)}, new Object[]{new Skeleton(new Cache("\\=="), new Object[]{new Place(1), 36}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_polate_text"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_polate_text", 3, new Clause(1, new Object[]{"[]", new Place(-2), new Place(0)}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_listing_name", 2})}, -1));
         
        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_multifile_safe"), new Object[]{"strings", 3})}, -1));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"strings", 3})}, -1));
         
        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_date", "de", "Kein Datum."}, new Object[]{}, -1, "syntax_error.illegal_date"));
         
        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) $."}, new Object[]{}, -1, "syntax_error.singleton_var"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.multiton_var", "de", "Mehrfache markierte Variable(n) $."}, new Object[]{}, -1, "syntax_error.multiton_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[]{"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_date", "", "Not a date."}, new Object[]{}, -1, "syntax_error.illegal_date"));
         
        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) $."}, new Object[]{}, -1, "syntax_error.singleton_var"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.multiton_var", "", "Multiton marked variable(s) $."}, new Object[]{}, -1, "syntax_error.multiton_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"));
         
    }
         

         
    public static void boot7() {
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_is_infix", 3})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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("ir_object_set"), new Object[]{new Place(0), "last", -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})}, -1));
         
        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(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_write_reference"), 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("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), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_write_priority", 3, new Clause(4, new Object[]{new Skeleton("$VAR", 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), 8}), 0}), new Skeleton(new Cache("integer"), new Object[]{new Place(1)}), new Skeleton(new Cache(">="), new Object[]{new Place(1), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_listing_name"), new Object[]{new Place(1), new Place(-3)}), 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(1), 0})}, 0, "$VAR"));
         
        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_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)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(0), "]"})}, 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_atom"), new Object[]{new Place(0), "{"}), 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_atom"), new Object[]{new Place(0), "}"})}, 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})}, -1));
         
        add("sys_write_number", 3, new Clause(4, new Object[]{new Place(-2), new Skeleton("w", new Object[]{new Place(-3), new Place(-1), new Place(-1)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("atom_number"), new Object[]{new Place(-5), new Place(0)}), 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(3), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_write_atom", 3})}, -1));
         
        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_atom"), new Object[]{new Place(1), 0, new Place(3), new Place(-1)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(0), ")"})}, 0, UNDEF_OBJ));
         
        add("sys_write_atom", 3, new Clause(3, new Object[]{new Place(-2), new Skeleton("w", new Object[]{new Place(-3), new Place(-1), new Place(-1)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_put_atom"), new Object[]{new Place(0), new Place(1), 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_write_reference", 3})}, -1));
         
        add("sys_write_reference", 3, new Clause(3, new Object[]{new Place(-2), new Skeleton("w", new Object[]{new Place(-3), new Place(-1), new Place(-1)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_put_reference"), 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_prefix", 6})}, -1));
         
        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(-5)}), new Skeleton(new Cache("sys_put_atom"), new Object[]{new Place(0), new Place(11), new Place(4), new Place(-1)}), new Skeleton(new Cache("sys_put_rspace"), new Object[]{new Place(9), new Place(6), new Place(3), new Place(-5)}), 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(3), new Compound(new Cache("\\"), new Object[]{8})}), new Place(-5)}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(8), new Skeleton("w", new Object[]{new Place(3), 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})}, -1));
         
        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})}, -1));
         
        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_put_oper", 3})}, -1));
         
        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_atom"), new Object[]{new Place(1), ","})}, 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_atom"), new Object[]{new Place(1), "|"})}, 0, "|"));
         
        add("sys_put_oper", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_put_atom"), new Object[]{new Place(0), 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_list", 3})}, -1));
         
        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_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(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_atom"), new Object[]{new Place(3), "|"}), 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})}, -1));
         
        add("sys_write_compound", 3, new Clause(7, new Object[]{new Place(-2), new Skeleton("w", new Object[]{new Place(-3), new Place(-1), new Place(-4)}), new Place(-5)}, new Object[]{new Skeleton(new Cache("=.."), new Object[]{new Place(0), new Skeleton(".", new Object[]{new Place(-2), new Skeleton(".", new Object[]{new Place(-6), new Place(-7)})})}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(3), new Place(-8)}), new Skeleton(new Cache("sys_put_symbol"), new Object[]{new Place(0), new Place(1), new Place(3)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(6), "("}), new Skeleton(new Cache("sys_write_priority"), new Object[]{new Place(4), new Skeleton("w", new Object[]{1, 999, new Place(2)}), new Place(3)}), new Skeleton(new Cache("sys_write_args"), new Object[]{new Place(5), new Place(2), new Place(3)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(6), ")"})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_symbol", 3})}, -1));
         
        add("sys_put_symbol", 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_put_reference"), new Object[]{new Place(1), new Place(2), new Place(3)})}, 0, UNDEF_OBJ));
         
        add("sys_put_symbol", 3, new Clause(3, new Object[]{new Place(-2), new Place(-3), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_put_atom"), new Object[]{new Place(0), new Place(1), 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_write_args", 3})}, -1));
         
        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_string", 2})}, -1));
         
        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})}, -1));
         
        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", 3})}, -1));
         
        add("sys_write_var", 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("sys_current_vars"), new Object[]{new Place(3), new Place(-6)}), new Skeleton(new Cache("sys_find_var"), new Object[]{new Place(1), new Place(4), new Place(-6)}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_current_flags"), new Object[]{new Place(3), new Place(-2)}), new Skeleton(new Cache("sys_var_quoted"), new Object[]{new Place(4), new Place(0), new Place(-2)}), new Skeleton(new Cache("sys_current_stream"), new Object[]{new Place(3), new Place(-5)}), new Skeleton(new Cache("sys_safe_atom"), new Object[]{new Place(3), new Place(0), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_write_var", 3, new Clause(3, new Object[]{new Place(-2), new Place(-1), 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_atom"), new Object[]{new Place(1), "_", 0}), 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})}, -1));
         
        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})}, -1));
         
        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})}, -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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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_atom"), new Object[]{new Place(1), " ("}), 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_atom"), 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)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_put_rparen", 5})}, -1));
         
        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_atom"), new Object[]{new Place(1), ")"})}, 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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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_atom"), new Object[]{new Place(1), " "}), 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})}, -1));
         
        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_atom"), new Object[]{new Place(1), " "})}, 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})}, -1));
         
        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_atom"), new Object[]{new Place(1), " "}), 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})}, -1));
         
        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})}, -1));
         
        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_oper_escape", 3})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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_atom", 4})}, -1));
         
        add("sys_put_atom", 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_current_flags"), new Object[]{new Place(2), new Place(-6)}), new Skeleton(new Cache("sys_atom_quoted"), new Object[]{new Place(0), new Place(4), new Place(3)}), 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(3), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_atom_quoted", 3})}, -1));
         
        add("sys_atom_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_atom_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_atom_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_put_reference", 3})}, -1));
         
        add("sys_put_reference", 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(2), new Place(-5)}), new Skeleton(new Cache("sys_reference_quoted"), new Object[]{new Place(0), new Place(3), new Place(-5)}), 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(3), new Place(1)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_reference_quoted", 3})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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_of_term"), 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_end_of_term", 2})}, -1));
         
        add("sys_read_end_of_term", 2, new Clause(4, new Object[]{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), 1}), 0}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_read_end"), new Object[]{"end_of_file", new Place(1), new Place(2)})}, 0, UNDEF_OBJ));
         
        add("sys_read_end_of_term", 2, new Clause(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_read_end"), 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_priority", 4})}, -1));
         
        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})}, -1));
         
        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("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("$CUT"), new Object[]{new Place(0)}), 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("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{new Place(-1), new Place(-2), new Place(0), 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_read_infix", 7})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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("$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("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("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("$CUT"), new Object[]{new Place(0)}), 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("$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("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(1, new Object[]{new Place(-1), new Place(-2), new Place(0), 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_lookup_var", 4})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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})}, -1));
         
        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("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{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_current_token", 3})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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("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("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("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("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("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("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("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "number"));
         
        add("sys_read_factor", 6, new Clause(3, 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("$CUT"), new Object[]{new Place(0)}), 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("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("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "reference"));
         
        add("sys_read_factor", 6, new Clause(3, 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("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_next_token"), new Object[]{new Place(1), new Place(2)})}, 0, "codes"));
         
        add("sys_read_factor", 6, new Clause(3, 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("$CUT"), new Object[]{new Place(0)}), 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})}, -1));
         
        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("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("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("$CUT"), new Object[]{new Place(0)}), 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("$EVAL"), new Object[]{new Skeleton(new Cache("-"), 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("$CUT"), new Object[]{new Place(0)}), 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(1, new Object[]{new Place(-1), new Place(-2), new Place(0), new Place(-1), 0, 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_read_prefix", 9})}, -1));
         
        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("$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("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})}, -1));
         
        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("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(1, new Object[]{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_read_list", 6})}, -1));
         
        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("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})}, -1));
         
        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("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("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(1, new Object[]{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_read_set", 6})}, -1));
         
        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("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})}, -1));
         
        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("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[]{"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("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, "end_of_file"));
         
        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("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("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[]{"sys_init_goal", 1})}, -1));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("kb_pred_touch"), new Object[]{"sys_init_goal", 1, 1})}, -1));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"abort", 0})}, -1));
         
        add("abort", 0, new Clause(0, new Object[]{}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("system_error", new Object[]{"user_abort"}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"exit", 0})}, -1));
         
        add("exit", 0, new Clause(0, new Object[]{}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("system_error", new Object[]{"user_exit"}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_call_print", 1})}, -1));
         
        add("sys_call_print", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sys_trap"), new Object[]{new Place(0), new Place(-2), new Skeleton("sys_ended_handler", new Object[]{new Place(0)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_ended_handler", 1})}, -1));
         
        add("sys_ended_handler", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sys_chain_head"), new Object[]{new Place(0), new Skeleton("error", new Object[]{new Compound("system_error", new Object[]{"user_exit"}), new Place(-1)})}), new Skeleton(new Cache("sys_raise"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        add("sys_ended_handler", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sys_print_error"), new Object[]{new Place(0)}), new Cache("fail")}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"initialization", 1})}, -1));
         
        add("initialization", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("assertz"), new Object[]{new Skeleton("sys_init_goal", new Object[]{new Place(0)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_init_goals", 0})}, -1));
         
        add("sys_init_goals", 0, new Clause(1, new Object[]{}, new Object[]{new Skeleton(new Cache("retract"), new Object[]{new Skeleton("sys_init_goal", new Object[]{new Place(-2)})}), new Skeleton(new Cache("sys_call_print"), new Object[]{new Skeleton("sys_must", new Object[]{new Place(0)})}), new Cache("fail")}, -1, UNDEF_OBJ));
         
        add("sys_init_goals", 0, new Clause(0, new Object[]{}, new Object[]{}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_must", 1})}, -1));
         
        add("sys_must", 1, new Clause(2, new Object[]{new Place(-3)}, new Object[]{new Place(1), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, UNDEF_OBJ));
         
        add("sys_must", 1, new Clause(0, new Object[]{new Place(-1)}, new Object[]{new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("syntax_error", new Object[]{"directive_failed"}), new Place(-1)})})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_baseline", 0})}, -1));
         
        add("sys_baseline", 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_baseline"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_baseline", 1})}, -1));
         
        add("sys_baseline", 1, new Clause(2, new Object[]{new Skeleton(".", new Object[]{"-h", new Place(-3)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("current_output"), new Object[]{new Place(-2)}), new Skeleton(new Cache("sys_print_message"), new Object[]{new Compound("command", new Object[]{"runtime"}), new Place(0)}), new Cache("nl"), new Skeleton(new Cache("set_prolog_flag"), new Object[]{"argv", new Skeleton(".", new Object[]{"-h", new Place(1)})})}, 0, "."));
         
        add("sys_baseline", 1, new Clause(2, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-1)})}, new Object[]{new Skeleton(new Cache("sub_atom"), new Object[]{new Place(1), 0, new Place(-1), new Place(-1), "-"}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("throw"), new Object[]{new Skeleton("error", new Object[]{new Compound("system_error", new Object[]{"option_command"}), new Place(-1)})})}, 0, "."));
         
        add("sys_baseline", 1, new Clause(1, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("set_prolog_flag"), new Object[]{"argv", new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_launch", 0})}, -1));
         
        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_launch"), 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})}, -1));
         
        add("sys_launch", 1, new Clause(1, new Object[]{new Skeleton(".", new Object[]{"-h", new Place(-1)})}, new Object[]{new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)})}, 0, "."));
         
        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)}), new Cache("sys_init_goals")}, -1, "."));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_banner", 0})}, -1));
         
        add("sys_banner", 0, new Clause(6, 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("atom_time"), new Object[]{new Place(-7), new Place(4), new Place(3)}), new Skeleton(new Cache("current_output"), new Object[]{new Place(-5)}), new Skeleton(new Cache("sys_print_message"), new Object[]{new Skeleton("banner", new Object[]{"runtime", new Place(0), new Place(1), new Place(2), new Place(5)}), new Place(3)}), new Cache("nl"), new Skeleton(new Cache("sys_print_message"), new Object[]{new Compound("banner", new Object[]{"copyright"}), new Place(3)}), new Cache("nl")}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_toplevel", 0})}, -1));
         
        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})}, -1));
         
        add("sys_toplevel_prompt", 1, new Clause(3, new Object[]{new Place(-3)}, new Object[]{new Cache("repeat"), new Cache("sys_init_goals"), new Compound(new Cache("put_atom"), new Object[]{"?- "}), new Cache("flush_output"), new Skeleton(new Cache("sys_call_print"), 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 Skeleton(make_defined(new Object[]{new Clause(2, new Object[]{new Place(-3), 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(2, new Object[]{new Place(-2), new Place(-3)}, new Object[]{new Skeleton(new Cache("sys_call_print"), new Object[]{new Skeleton("sys_query_attended", new Object[]{new Place(0), new Place(1)})}), new Cache("fail")}, -1, UNDEF_OBJ)}), new Object[]{new Place(1), new Place(2)}), 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})}, -1));
         
        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_answer_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_answer_period")}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_ask_abort", 0})}, -1));
         
        add("sys_ask_abort", 0, new Clause(1, new Object[]{}, new Object[]{new Cache("flush_output"), new Skeleton(new Cache("get_atom"), new Object[]{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})}, -1));
         
        add("sys_answer_show", 1, new Clause(2, new Object[]{new Place(-2)}, new Object[]{new Skeleton(new Cache("sys_triage_names"), new Object[]{new Place(0), new Place(-2), new Place(-3)}), new Skeleton(new Cache("append"), new Object[]{new Place(1), new Place(0), new Place(-3)}), new Skeleton(new Cache("reverse"), new Object[]{new Place(1), 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_triage_names", 3})}, -1));
         
        add("sys_triage_names", 3, new Clause(5, new Object[]{new Skeleton(".", new Object[]{new Place(-3), new Place(-4)}), new Place(-5), new Skeleton(".", new Object[]{new Place(1), new Place(-6)})}, new Object[]{new Skeleton(new Cache("="), new Object[]{new Place(1), new Skeleton("=", new Object[]{new Place(-3), new Place(-1)})}), new Skeleton(new Cache("sys_marked_at"), new Object[]{new Place(1), 0, new Compound(".", new Object[]{23, "[]"})}), new Skeleton(new Cache("sys_marked_at"), new Object[]{new Place(1), 1, new Compound(".", new Object[]{1, new Compound(".", new Object[]{3, new Compound(".", new Object[]{23, "[]"})})})}), new Skeleton(new Cache("$CUT"), new Object[]{new Place(0)}), new Skeleton(new Cache("sys_triage_names"), new Object[]{new Place(2), new Place(3), new Place(4)})}, 0, "."));
         
        add("sys_triage_names", 3, new Clause(3, new Object[]{new Skeleton(".", new Object[]{new Place(-2), new Place(-3)}), new Skeleton(".", new Object[]{new Place(0), new Place(-2)}), new Place(-4)}, new Object[]{new Skeleton(new Cache("sys_triage_names"), new Object[]{new Place(1), new Place(0), new Place(2)})}, -1, "."));
         
        add("sys_triage_names", 3, new Clause(0, new Object[]{"[]", "[]", "[]"}, new Object[]{}, -1, "[]"));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"sys_filter_names", 3})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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})}, -1));
         
        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("numbervars", new Object[]{"true"}), new Compound(".", new Object[]{new Compound("quoted", new Object[]{"true"}), "[]"})})})})})}, 0, UNDEF_OBJ));
         
        add("sys_answer_term", 2, new Clause(1, new Object[]{new Place(-1), new Place(-1)}, new Object[]{new Skeleton(new Cache("get_string"), new Object[]{"answer.cyclic", new Place(-2)}), new Skeleton(new Cache("put_atom"), new Object[]{new Place(0)})}, -1, UNDEF_OBJ));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_multifile_safe"), new Object[]{"strings", 3})}, -1));
         
        run(new Goal(0, new Object[]{new Compound(new Cache("sys_usage_predicate"), new Object[]{"strings", 3})}, -1));
         
        add("strings", 3, new Clause(0, new Object[]{"answer.cyclic", "de", "<zyklischer Ausdruck>"}, new Object[]{}, -1, "answer.cyclic"));
         
        add("strings", 3, new Clause(0, new Object[]{"command.runtime", "de", "Benutzung: opt_1 .. opt_m [text arg_1 .. arg_n]\nFalls kein text spezifiziert ist, wird Banner gezeigt und dann\nTop-Level ausgeführt, andernfalls wird text ausgeführt.\n-h                   Diesen Hilfetext anzeigen und Vorgang beenden"}, new Object[]{}, -1, "command.runtime"));
         
        add("strings", 3, new Clause(0, new Object[]{"system_error.option_command", "de", "Ungültige Befehlzeilenoption, -h für weitere Informationen."}, new Object[]{}, -1, "system_error.option_command"));
         
        add("strings", 3, new Clause(0, new Object[]{"answer.cyclic", "", "<cyclic term>"}, new Object[]{}, -1, "answer.cyclic"));
         
        add("strings", 3, new Clause(0, new Object[]{"command.runtime", "", "Usage: opt_1 ... opt_m [text arg_1 ... arg_n]\nIf no text is specified, banner is shown and then top-level\nis executed, otherwise text is executed.\n-h                   Display this help and exit."}, new Object[]{}, -1, "command.runtime"));
         
        add("strings", 3, new Clause(0, new Object[]{"system_error.option_command", "", "Invalid command line option, -h for more information."}, new Object[]{}, -1, "system_error.option_command"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.directive_failed", "de", "Direktive fehlgeschlagen."}, new Object[]{}, -1, "syntax_error.directive_failed"));
         
        add("strings", 3, new Clause(0, new Object[]{"system_error.user_abort", "de", "Ausführung auf Benutzerwunsch abgebrochen."}, new Object[]{}, -1, "system_error.user_abort"));
         
        add("strings", 3, new Clause(0, new Object[]{"system_error.user_exit", "de", "System auf Benutzerwunsch beendet."}, new Object[]{}, -1, "system_error.user_exit"));
         
        add("strings", 3, new Clause(0, new Object[]{"syntax_error.directive_failed", "", "Directive failed."}, new Object[]{}, -1, "syntax_error.directive_failed"));
         
        add("strings", 3, new Clause(0, new Object[]{"system_error.user_abort", "", "Execution aborted on user request."}, new Object[]{}, -1, "system_error.user_abort"));
         
        add("strings", 3, new Clause(0, new Object[]{"system_error.user_exit", "", "System ended on user request."}, new Object[]{}, -1, "system_error.user_exit"));
         
    }
         

         
}