solved tree.

TODO: solve without Data.Graph.
stupid.