# Black box algorithm to find standard generators F22.2

	set F 0
	set G 0
	set V 0
lbl SEMISTD
	rand 1
	ord 1 A
	incr V
	if V gt 1000 then timeout
	if A notin 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 18 20 21 &
			22 24 30 36 42 then fail
	if F eq 0 then
		if A eq 22 then
			pwr 11 1 2
			set F 1
		endif
	endif
	if G eq 0 then
		if A eq 42 then
			cp 1 3
			set G 1
		endif
	endif

	if F eq 0 then jmp SEMISTD
	if G eq 0 then jmp SEMISTD
	
	pwr 5 3 4

	set X 0
lbl CONJUGATE
	incr X
	if X gt 1000 then timeout
	rand 5
	cjr 2 5
	mu 2 3 6
	ord 6 D
	if D notin 6 8 10 12 14 16 18 20 24 30 36 42 then fail
	if D noteq 18 then jmp CONJUGATE

	mu 2 4 7
	ord 7 E

	if E notin 12 16 18 20 24 30 42 then fail
	if E noteq 42 then jmp CONJUGATE

	oup 2 2 6