
















gust
4
%   Purpose: Prolog "top level"

/*  Although the actual code presented here is entirely my own, I have
    read the top level code for Dec-10 Prolog, PDP-11 Prolog, C Prolog,
    Prolog-X, and NIP, so the ideas are those of David Warren, Fernando
    Pereira, and Lawrence Byrd.  This top level is not exactly the same
    as any of the ones I've cited; in particular, you can enter clauses
    from command level just by typing 

















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ee










	% y(es)
	;   C = 0't, trac
tyskip(31), fail	% t(ra
	;   ttyskip(31), f
		% others
	).

_is_happy_w
[Var=Va
ria

























