% Templates for guesser rules
% Inspired by Brill 1994




tag:A>B <- suff:C@[0].

tag:A>B <- pref:C@[0].


% Auxiliary predicates


suff(P,Cs) :-
	wd(P,W),
	atom_suffix(2,W,Cs).

pref(P,Cs) :-
	wd(P,W),
	atom_prefix(2,W,Cs).

/**

atom_suffix(N,W,Cs) is a built in predicate
true iff Cs is a suffix of W, =< N chars long

atom_prefix(N,W,Cs) is a built in predicate
true iff Cs is a prefix of W, =< N chars long

**/