Задание: в указанном ярусе дерева добавить вершину с указанной меткой.
***
DOMAINS
tree=tr(integer,tree,tree);e
PREDICATES
der(integer,integer,tree,tree) %(ярус,метка,исходное_дерево,результат)%
CLAUSES
der(1,M,T,tr(M,T,e)):-!.
der(I,M,tr(X,L,R),
tr(X,D,R)):-
J=I-1,
der(J,M,L,D),!.
der(I,M,tr(X,L,R),tr(X,L,D)):-
J=I-1,
der(J,M,R,D).
***
Помогите, пожалуйста, написать программу до конца
