> module Reduce where

Two ways to fold ints from the tree defined in

> import TreeDatatype
> import CompanyDatatypes

> errorMsg = error "Reduce test not yet implemented"

> sizeListTree :: [Tree a w] -> Int
> sizeListTree = errorMsg

> collectListTree :: [Tree a w] -> [a]
> collectListTree = errorMsg

> sumListTree :: [Tree Int w] -> Int
> sumListTree = errorMsg