Список и дерево - Prolog

Формулировка задачи:

пролог начала изучать буквально вчера и то, потому что надо сдать несколько лаб(( некоторые сделала,вроде все нормально, а вот с двумя проблема.Кто чем сможет помогите 1)Написать программу для удаления из списка всех элементов, равных 0. Например: список [1, 0, 2, 0, 0, 3] преобразуется в список [1, 2, 3]. 2)Вывести бинарное дерево на экран в виде дерева.

Решение задачи: «Список и дерево»

textual
                            Листинг программы 
                        

                            DOMAINS
tree=nil;t(integer,tree,tree)
 
PREDICATES
show_spaces(integer).
show(tree).
show(tree,integer).
 
CLAUSES
 
show_spaces(0):-!.
show_spaces(N):-write("   "),N1=N-1, show_spaces(N1).
 
show(nil,_).
show(t(E,LeftTree,RightTree),N):-
        show_spaces(N),write(E),nl,
        N1=N+1,show(LeftTree,N1),show(RightTree,N1).
 
show(Tree):-show(Tree,0).
 
GOAL
show(t(1,t(2,t(3,nil,nil),t(4,nil,nil)),t(5,nil,nil))).
                        