umTree :: Num a => RoseTree a -> a
sumTree = cataRose (\(x, xs) -> x + sumList xs)

sumTree :: Num a => RoseTree a -> a
sumTree = cataRose (\(x, xs) -> x + sumList xs)
sumTree = cataRose (\(x, xs) -> x + sumList xs)