*! version 2.0.0 Wed Feb 24 15:59:43 PST 1993
program define vserteq /* <exp1> ==  <exp2> */
	version 3.0
	if "`2'" != "==" {
		error 198
	}
	tempvar left right err id
	gen long `id'=_n
	gen double `left' = `1'
	gen double `right' = `3'
	gen double `err'=abs(`left'-`right')
	sort `err'
	di in gr "Maximum absolute error:"
	asserteq `left'[_N] == `right'[_N] noisily
	sort `id'
end