*! version 2.0.0 Thu Feb 25 11:49:59 PST 1993
program define jumble
	version 3.0
	if "`1'"!="" {
		set seed `1'
	}
	tempvar U
	gen `U'=uniform()
	sort `U'
end