Prolog Поиск ветви в с максимальным количеством листьев в бинарном дереве

Question

Помогите из кода, который ищет количество листьев в бинарном дереве, сделать код, который ищет ветвь с максимальным количеством листьев.

Код который ищет количество листьев в бинарном дереве:

branch(pusto,0).
branch(tree(_,pusto,pusto),1):-!.
branch(tree(_,L,R),N):- branch(R,N1),branch(L,N2),N=N1+N2.

Код поиска максимального элемента в Prolog:

max(A,B,A):-!.
max(_,B,B):-!.