#include <array.au3>

Func debug($Message = '', $MsgStyle = 0)
	MsgBox($MsgStyle + 8192 + 262144, 'DEBUG', $Message)
EndFunc

Func ARRAYDISPLAY($ARRAY, $reset = True) ;<!>
	Local Const $SPACE = '    '

	If IsArray($ARRAY) = False Then
		ConsoleWrite('[')
		ConsoleWrite($SPACE & $ARRAY)
		ConsoleWrite(']')
		Return
	EndIf

	Static Local $LEVEL
	If $reset Then $LEVEL = 0

	ConsoleWrite('[' & @CRLF)

	For $_ In $ARRAY
		If IsArray($_) Then
			$LEVEL += 1
			For $L = 1 To $LEVEL
				ConsoleWrite($SPACE)
			Next
			ARRAYDISPLAY($_, False)
		Else
			For $L = 0 To $LEVEL
				ConsoleWrite($SPACE)
			Next
			ConsoleWrite($_ & @CRLF)
		EndIf
	Next
	For $L = 1 To $LEVEL
		ConsoleWrite($SPACE)
	Next
	$LEVEL -= 1
	ConsoleWrite(']' & @CRLF)
EndFunc