*! version 1.0.1 Tue Feb 23 07:36:03 PST 1993
program define chksumm
	version 3.0
	quietly summ `1'
	assert _result(1)==`2'
	asserteq _result(3) /= `3'
	asserteq sqrt(_result(4)) /= `4'
end