theArray = #(1,2,3,4)
fn printArrayCombinations _lengthToPrint _theArray =
(
    finalArray = #()
    for i = 1 to _theArray.count do
    (
		allTheSubArrays = #()
		subArray = #()
        firstMember = _theArray[i]
		for n = 1 to _theArray.count do
		(
			if n != firstMember do
			(
				subArray = #(firstMember)
				append subArray _theArray[n]
			)
			append allTheSubArrays subArray
		)
		append finalArray allTheSubArrays
    )
    return finalArray
)
printArrayCombinations 2 theArray