Помогите написать код на языке Prolog. Очень нужно, буду очень признательна. (Visual Prolog 9)

Дан список, элементы которого — непустые бинарные деревья с числами в качестве вершин. Для каждого такого дерева найти количество отрицательных вершин. Из полученных результатов сформировать список и вывести его. Затем через пробел вывести его же, но записывая значения римскими числами (максимальное значение — 10).
Например: если дано "[bt(–5,bt(–9,no,no),bt(–1,bt(–7,no,no),no)),bt(–3,bt(–2,no,no),bt(2,no,no))]", ответом будет "[4,2] ["IV","II"]".