/* FILE IN POWERFUL MATCHER */

/* new procedures */
 :- consult(match: 'match.pl'),
    consult(match: 'hard.pl'),
    consult(match: 'bags.pl'),
    consult(match: 'expr.pl'),
    consult(match: 'memo.pl'),
    consult(match: 'pick.pl'),
    consult(match: 'fuzzy.pl'),
    consult(match: 'trform.pl'),
    consult(match: 'portra.pl'),
    consult(match: 'misc.pl'),
    consult(match: 'featur.pl'),
    consult(match: 'inst.pl'),
    consult('test.pl').

/* additions to PRESS */
 :- consult('collec.pl'),
    consult(match: 'tidy.pl'),
    consult(match: 'isolax.pl'),
    consult(match: 'sqrt.pl').

/* patches to PRESS */
 :- reconsult('collax.pat'),
    reconsult(match: 'decomp.pat'),
    reconsult(match: 'interv.pat').

/* save state of matcher */
 ?- save('cubic.ss'). 

 ok :- core_image, display('Borning matcher'), ttynl, '$reinit'.
