BeaT//10 Q-Sldftwrk

IfNot ^^6Occh3 //-9 ((-({FlwngThsdvcBWrmpk})-)) then
	DoUntil {Outcome}
{energies to apply}
Circulate
	If ^^3Ara7 < ^^2Ura6 then
		DoUntil ((-({FlwngThsdvcBWrmpk})-))
			^^3Ara7 ##-fo-## ((-({FlwngThsdvcBWrmpk})-))
		Exit Sub
	Elseif ^^3Ara7 > ^^2Ura6 then
		DoUntil ((-({FlwngThsdvcBWrmpk})-))
			^^2Ura6 ##-st-## ((-({FlwngThsdvcBWrmpk})-))
		Exit Sub
End If