Added tree.hs