maximum :: (Ord v, Bounded v) => Tree k v -> v
maximum = getMaximum . foldMap Maximum
maximum :: (Ord v, Bounded v) => Tree k v -> v
maximum = getMaximum . foldMap Maximum
maximum = getMaximum . foldMap Maximum