instance Show a => Show (Tree a) where
    show (Leaf a) = show a
    show (Branch l r) = "(" ++ (show l) ++ ";" ++ (show r) ++ ")"