Class Class

hierarchy: n | result |

	result <- ''.

	1 to: n do: [:i | result <- result + '   '].

	result <- result + name.

	self subclasses do: [:c |

		result <- result + Char newline asString + (c hierarchy: n+1) ].

	^ result