Update Tree.hs

upperCase example now type checks