бинарные деревья-пролог

[Miguel]

Ребят,можете добить этот код,чтобы на экране показывалось и само дерево?(не списком)

domains
list=integer*.
tree=d(integer,tree,tree);
e.
predicates
search(integer,tree,list).
clauses
search(_,e,_):-fail.
search(N,d(N,_,_),[N]).
search(N,d(M,A,_),[M|L]):-search(N,A,L).
search(N,d(M,_,A),[M|L]):-search(N,A,L).
goal: search(7,d(1,d(2,d(3,e,e),d(5,e,e)) ,d(6,d(7,e,e),d(8,e,e))),N).

[rrrFer]

пиши, ICQ 395-546-218
А ваш код не добить, я тут вообще не вижу попыток вывода на экран чего-либо.