Incomplete solution for Tree.fold (datastructures, ex 29)