Add balanced2.hs for Data.Tree