chickadee » tree-walkers » tree-of?

returns a procedure, which checks, if its only argument is a tree, whose items pass the ok? test.