:- phrase(list(Es), Xs0,Xs).
:- phrase(list(Es), Es,Es).
< @@	% Es = [].
< @@	! Ausführung dauert zu lang, Antwort unvollständig
< Why the loop here?
list([]) -->
	[].
list([E|Es]) -->
	[E],
	list(Es).
-----         n599 ------------------------
Questions are sent to the lecturer by saving the example. When the lecturer has answered the questions, the system signals beeping that the example should be reloaded.
**NEXT:(Beep, beep!) Load the answer with [DO].
[logprog|GUPU|UWN]