node(1,2).

node(A, Children) :- 
	node(Parent, B), 
	Parent = node(A,Children), 
	Children = [node(Parent,B)].