package main _plain
	typename K_object = enum
	typename K_fruit <=  K_object
	typename K_citrus_fruit <=  K_fruit
	typename K_stone <=  K_object
	typename K_feldspar <=  K_stone
	typename K_mica <=  K_stone