proc shuffle
	local	0,001000,x
	local	1,000000,string
	filen	[-.source]shuffle.icn
	declend
	line	10
	mark	L1
	pnull
	var	0
	var	1
	var	0
	line	11
	invoke	1
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	pnull
	var	0
	line	12
	bang
	pnull
	var	0
	random
	swap
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	0
	line	13
	pret
lab L6
	line	13
	pfail
	unmark
lab L5
	pnull
	line	14
	pfail
	end