ClassMethod test(){

	s inheritance = $lb(
		"Class.can.be.subclassed.to.a.depth.of50.but.not.further",
		"The.full.name.of.class.member.including.the.full.class.name.must.be.less.than.or.equal.to220.characters",
		"The.total.length.of.a.global.reference.is.limited.to511.encoded.characters",
		"If.you.must.have.long.subscript.or.global.names",
		"it.is.helpful.to.avoid.a.large.number.of.subscript.levels",
		"If.you.are.using.multiple.subscript.levels",
		"avoid.long.global.names.and.long.subscripts",
		"Because.you.may.not.be.able.to.control.the.character.sets.you.are.using",
		"it.is.useful.to.keep.global.names.and.subscripts.shorter"
	)
	#define isOk( %bool ) $case( %bool, 1:"OK. ",:"FAIL. " )
	s pointer = 0, class = "", ok = 1
	while $listnext( inheritance, pointer, class ){
		s valid = $system.OBJ.IsValidClassname( class )
		w !, $$$isOk( valid ), class
		s ok = ok && valid
	}
	
	w !, "Classes: ", $$$isOk( ok )
	s depth = $ll( inheritance ) w !, "Depth: ", depth
	s classes = "~" _ $lts( inheritance, "~" )_ "~" w !,"Length: ", $l( classes )
	s test = 1
	
	try {
		s data = $lb( classes, "нет здесь никакой проблемы", "точно не с совместимостью и универсальностью" )
		s ^alatolo.has.idea(classes, 1) = data
	} catch e {
		zw e s test = 0	
	}
	Q test
}