помогите с прологом

[hangkokk]

помогите пожалуйста только не давно стали проходить пролог надо написать программу. Определить предикат sumtr(T,S) так что бы S равнялось суммевсех чисел-узлов, входящих в бинарное дерево T. Очень надо