tree.hs