public ImmuSet initExamples() {
	SetAccumulator sequences;
	SetAccumulator result;
	ImmuSet base;
	sequences = SetAccumulator.make();
	sequences.step((Sequence.zero()));
	sequences.step((Sequence.one(1)));
	sequences.step((Sequence.two(1, 2)));
	sequences.step((Sequence.two(1, -2)));
	Stepper stomper = ((ImmuSet) sequences.value()).stepper();
	for (; stomper.hasValue(); stomper.step()) {
		Sequence tum = (Sequence) stomper.fetch();
		if (tum == null) {
			continue ;
		}
		sequences.step((tum.shift(2)));
		sequences.step((tum.shift(-2)));
	}
	stomper.destroy();
	result = SetAccumulator.make();
	Stepper stomper2 = ((ScruSet) sequences.value()).stepper();
	for (; stomper2.hasValue(); stomper2.step()) {
		Sequence sequence = (Sequence) stomper2.fetch();
		if (sequence == null) {
			continue ;
		}
		result.step((SequenceSpace.make().prefixedBy(sequence, sequence.shift() + sequence.count())));
		result.step((SequenceSpace.make().prefixedBy(sequence, sequence.shift() + sequence.count())).complement());
		result.step((SequenceSpace.make().above(sequence, true)));
		result.step((SequenceSpace.make().above(sequence, false)));
		result.step((SequenceSpace.make().below(sequence, true)));
		result.step((SequenceSpace.make().below(sequence, false)));
	}
	stomper2.destroy();
	base = (ImmuSet) result.value();
	Stepper stomper3 = base.stepper();
	for (; stomper3.hasValue(); stomper3.step()) {
		SequenceRegion r = (SequenceRegion) stomper3.fetch();
		if (r == null) {
			continue ;
		}
		Stepper stomper4 = base.stepper();
		for (; stomper4.hasValue(); stomper4.step()) {
			SequenceRegion r2 = (SequenceRegion) stomper4.fetch();
			if (r2 == null) {
				continue ;
			}
			if (r.hashForEqual() < r2.hashForEqual()) {
				result.step((r.unionWith(r2)));
				result.step((r.intersect(r2)));
			}
		}
		stomper4.destroy();
	}
	stomper3.destroy();
	return (ImmuSet) result.value();
/*
udanax-top.st:60147:SequenceTester methodsFor: 'init'!
{ImmuSet of: XnRegion} initExamples
	| sequences {SetAccumulator} result {SetAccumulator} base {ImmuSet} |
	sequences := SetAccumulator make.
	sequences step: (Sequence zero).
	sequences step: (Sequence one: 1).
	sequences step: (Sequence two: 1 with: 2).
	sequences step: (Sequence two: 1 with: -2).
	(sequences value cast: ImmuSet) stepper forEach: [ :tum {Sequence} |
		sequences step: (tum shift: 2).
		sequences step: (tum shift: -2)].
	result := SetAccumulator make.
	(sequences value cast: ScruSet) stepper forEach: [ :sequence {Sequence} |
		result step: (SequenceSpace make prefixedBy: sequence
			with: sequence shift + sequence count).
		result step: (SequenceSpace make prefixedBy: sequence
			with: sequence shift + sequence count) complement.
		result step: (SequenceSpace make above: sequence with: true).
		result step: (SequenceSpace make above: sequence with: false).
		result step: (SequenceSpace make below: sequence with: true).
		result step: (SequenceSpace make below: sequence with: false)].
	base := result value cast: ImmuSet.
	base stepper forEach: [ :r {SequenceRegion} |
		base stepper forEach: [ :r2 {SequenceRegion} |
			r hashForEqual < r2 hashForEqual ifTrue:
				[result step: (r unionWith: r2).
				result step: (r intersect: r2)]]].
	^result value cast: ImmuSet!
*/
}