Заменить все отрицательные элементы дерева на 0, умоляяюююю - Prolog

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

Прошу помогите пожалуйста очень очень нужно, заменить все отр. элементы дерева на 0, дерево формируется рандомное, не получается никак заменить, вот кривой код, дерево выводит но не заменяет, помогите умоляю((((

tree_insert(X,empty,tr(X,empty,empty)).
tree_insert(X,tr(X,L,R),tr(X,L,R)):- !.
tree_insert(X,tr(K,L,R),tr(K,L1,R)):-X<K,!,tree_insert(X,L,L1).
tree_insert(X,tr(K,L,R),tr(K,L,R1)):-tree_insert(X,R,R1).
tree_gen(0,empty):- !.
tree_gen(N,T):-X is random(100)-50,N1 is N-1,tree_gen(N1,T1),tree_insert(X,T1,T).
tree_print(T):-print2(T,0).
print2(empty,_).
print2(tr(X,L,R),H):-H1 is H+8,print2(R,H1),tab(H),write(X),nl,print2(L,H1).
 
tree_replace(_,empty).
/*tree_replace(X,tr(X,_,_),tr(X,_,_)):- !.*/
 
/*tree_replace(0,tr(X,_,_),tr(X,_,_)):- !,X<0.*/
tree_replace(0,tr(X,L,R),tr(Y,L1,R1)):-X<0,
             tree_replace(Y,L,L1),
         tree_replace(X,R,R1).
/*tree_replace(X,tr(Z,L,R),tr(Z1,L1,R1)):-
    tree_replace(X,L,L1),
    tree_replace(X,R,R1).*/
lol:-tree_gen(5,P),tree_print(P),tree_replace(0,P),nl,write('%%%%%%'),nl,tree_print(P).

Забыл, это на SWI Prolog нужно(((

Решение задачи: «Заменить все отрицательные элементы дерева на 0, умоляяюююю»

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

element_replace(X, X) :- 
    X > 0, 
    !.
element_replace(X, 0).
 
tree_replace(empty, empty).
tree_replace(tr(X, L, R), tr(XN, LN, RN)) :-
    element_replace(X, XN),
    tree_replace(L, LN),
    tree_replace(R, RN).

Объяснение кода листинга программы

Код выполняет замену отрицательных элементов в древовидной структуре на ноль.

element_replace(X, X) :- X > 0, !. - Эта часть кода проверяет, является ли элемент X больше нуля. Если это так, то он заменяет X на X.
element_replace(X, 0) - Если элемент X меньше или равен нулю, он заменяет его на ноль.
tree_replace(empty, empty) - Эта часть кода выполняет замену в пустом дереве, которое не имеет ни левого, ни правого поддерева.
tree_replace(tr(X, L, R), tr(XN, LN, RN)) - Здесь tr(X, L, R) - это терм, представляющий дерево, где X - это значение на вершине, L - левое поддерево, а R - правое поддерево. Эта часть кода рекурсивно вызывает себя для замены левого и правого поддеревьев, а затем заменяет значение на вершине на XN. Таким образом, код проходит по каждому элементу дерева и заменяет отрицательные значения на ноль.