Segítség a rekurzív bejáráshoz

Sziasztok!
Van egy prolog programom amiben vannak állítások a következő képpen:
gyereke(X,Y) ahol X-nek gyereke Y.
A feladat az lenne a programban, hogy faszerűen kiiratom a családfát.
Nagyjából kitaláltam már, hogy hogy kéne, csak jelenleg kicsit szenvedek a programmal.
Szeretnék egy olyan részt csinálni ahol egy adott szülönek az összes gyerekét bepakolja egy listába.
így probáltam:
gyereklista(X,LISTA):-gyereke(X,Y),append(Y,LISTA,LISta).
Nyílvánvalóan nem jó, hisz valahogy rekurzivan kéne ezt megoldani....igy most csak egy gyerek nevet rak be kábé 5-ször a listámba.
Viszont nem tudok rekurziót kitalálni rá, illetve eddig nem tudtam.
Van valakinek ötlete?

A válaszokat előre is köszönöm!