













August 1984
%   Purpo
"Conditional Comp
ion".

/*  Th
rpose of 
 file
t





































































































































































































































fx, [
,




xfx, [(#+),(#-)]).

#+ Test :-
	1 #+ Test.

N #+ Test :-
	call(Test),
	!.
N #+ Test :-
	skip_re
).


#- Test :-
	1 #- Test.

N #- Test :-
	call(Test),
	!,
	skip_read(N).
N #- Test.


skip
d(0) :- !.
skip_read(N) :-
	read(_),
	M is N-1,
	skip_read(M).


dialect(dec10).
os(top
.







ic
	(#+)/1,		%    #+ features. clause.
	(#+)/2,		%  n #+ features. c1. ...
