node_state_of( n(X,_), X). node_parent_of( n(_,X), X). node_new( n(_,_) ).
node_state_of( [node,X,_], X). node_parent_of( [node,_,X], X). node_new( [_,_,_] ).