partno/array_test
print/on
clprnt

reserv /pts,4

	k = 4
	
la1)	loopst
	
	pts(k) = point/k,0
	k=k-1
	if (k-1) la3, la1, la1

la3)	loopnd

fini