| b |
	b := RTMondrian new.

	b shape circle size: 30.
	b nodes: (RTShape withAllSubclasses).

	b shape arrowedLine color: Color black; withShorterDistanceAttachPoint.
	b edges connectFrom: #superclass.
	b layout force charge: -500; nbIterations: 50.

	b build.
	^ b view