deleteMax :: Tree a -> (Maybe a, Tree a)