/* Rajzoljuk fel a fát! (vagyis próbáljuk meg értelmezni a családot) */


  csalad(fa('Kati', fa('Barna', fa('Anna',ures,ures),
         fa('Bela',ures,ures)), 
         fa('Pali', fa('Marta',fa('Laci',ures,ures),ures), 
	 fa('Zoli', fa('Robi',ures,ures), ures)))).

  kiir(ures).
  kiir(fa(Elem,Bal,Jobb)) :- writeln(Elem), kiir(Bal), kiir(Jobb).

  indit :- csalad(Fa), kiir(Fa), nl.       
        
