trees.hs