Update CreateTree.hs