;Show Stack by Hex - http://hex.palaceplanet.net
;Originaly by MNB
	show_stack GLOBAL
	{	{	0 ss = "; The Stack:" LOCALMSG
		{	ss PICK TOPTYPE
			[	{ POP "; <Error/Stack Empty>" } { ITOA "; " SWAP & }
				{ POP "; <Variable>" } { POP "; <AtomList>" }
				{ "; \"" SWAP & "\"" & } { POP "; [" } { POP "; <Array>" }
			] SWAP GET EXEC LOCALMSG ss ++
		} { ss STACKDEPTH 1 - < } WHILE } { "; Err: Requires IptVersion 1" LOCALMSG } IPTVERSION IFELSE
	} show_stack DEF