const as integer ArraySize = 3

dim as integer MyArray(0 to ArraySize - 1) = {1, 2, 3}

dim as integer Combinations = (ArraySize ^ ArraySize) * (4 ^ (ArraySize - 1))
dim as integer l = (ArraySize * 2) - 1

for i as integer = 0 to Combinations - 1
	dim temp as integer = i
	dim TextResult as string = string$(ArraySize-1,"("), Result as integer
	dim as integer ArrayNum
	dim as integer number

	Result = MyArray(temp mod ArraySize)
	number or= 1 shl (temp mod ArraySize)
	temp \= ArraySize
	TextResult += str$(Result)

	for j as integer = 1 to l-2 step 2
		dim as integer OpNum = temp and 3
		temp shr= 2

		ArrayNum = temp mod ArraySize
		if (1 shl (temp mod ArraySize)) and number then continue for, for
		number or= 1 shl (temp mod ArraySize)
		temp \= ArraySize

		select case OpNum
		case 0: Result += MyArray(ArrayNum): TextResult += "+"
		case 1: Result -= MyArray(ArrayNum): TextResult += "-"
		case 2: Result *= MyArray(ArrayNum): TextResult += "*"
		case 3: Result \= MyArray(ArrayNum): TextResult += "\"
		end select

		TextResult += str$(MyArray(ArrayNum)) & ")"
	next j

	print TextResult+"=" & Result

next i