class  NODE[T]  -- node in a generic binary tree
   
creation  make
   
feature {ANY}
   
   item : T
   left : NODE[T]
   right : NODE[T]
   
   make( t: T; l,r: NODE[T] ) is
      do
	 item := t
	 left := l
	 right := r
      end -- make
   
feature {TREE}
   
   set_item( i: T ) is
      do
	 item := i
      end -- set_item
   
   set_left( l: NODE[T] ) is
      do
	 left := l
      end -- set_left
   
   set_right( r: NODE[T] ) is
      do
	 right := r
      end -- set_right
   
end -- class NODE[T]