+Object subclass: BasicNode [
+ <comment: 'I am provide common behaviour for my subclasses Node and
+LeafNode. Otherwise, I''m not particularly interesting.'>
+
+ iterator [
+ "Return a new iterator to walk this node."
+
+ <category: 'iteration'>
+ ^NodeIterator for: self
+ ]
+]
+
+BasicNode subclass: Node [