import("accumulators") ?

acc_info(dcg,Term, Xs, Ys, acc_pred => 'C'(Term,false,Xs,Ys),
	 in_name => 0, out_name => rest) ?

expand_load(true) ?

% chdir("..") ?

load("sl_rule_expander.lf") ?

open("sl_rule_expander") ?

% chdir("TEST") ?

compile_rules(from => ["FILES/testslc.rules"], in => "OUT/testslc.out") ?

% halt ?
