?- new(T, tree(new(Root, node(text(anything))))), send(Root, son, new(S0, node(text(living_thing)))), ...
<-