preorden([]).
preorden([X,[],[]]):-
	write(X).

preorden([X,Y,Z]):-
	write(X), nl,
	preorden(Y),
	preorden(Z).


