% --- start of displayed preamble in the book ---
input metaobj
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
newBox.a(btex apples etex);
newBox.b(btex oranges etex);
newBox.c(btex bananas etex);
newBox.d(btex potatoes etex);
newBox.e(btex peas etex);
newBox.f(btex fruits etex);
newBox.v(btex vegetables etex);
newBox.fo(btex food etex);

newTree.fruits(f)(a,b,c);
newTree.vegetables(v)(d,e);
newTree.food(fo)(fruits,vegetables);
scaleObj(food,.7);
food.c=origin;drawObj(food);
endfig;
end;