:- initialization(
	logtalk_load([
		hierarchyp,
		proto_hierarchyp, proto_hierarchy,
		class_hierarchyp, class_hierarchy])).