types in types

that last part should probably be:

For t.tree = Each tree
	if t\forest=f2 then Print t\treetype$
Next