(

	print '('

	integer i

	for ((i=0 ; i < 16384 ; i++ )) ; do
		printf '\tinteger var%i=%i\n' i i
	done

	printf 'typeset -a ar=(\n'
	for ((i=0 ; i < 16384 ; i++ )) ; do
		printf '\t[%d]=%d\n' i i
	done	
	print ')'

	print ')'
) | read -C hugecpv

set -o xtrace

compound hugecpv2=hugecpv

compound hugecpv.snapshot=hugecpv2

unset hugecpv2
compound hugecpv2=hugecpv

print -v hugecpv2 | wc -l

print '#done'