partno/loop_test
print/on
clprnt

pt0= point/0,0,0

	k = 4
	from/pt0
la1)	loopst
	
	godlta/0,0,-.5
	godlta/0,1,0
	godlta/-1,0,0
	godlta/0,-1,0
	godlta/1,0,0
	godlta/0,1,0
	godlta/2,-1,.5
	k=k-1
	if (k-1) la2, la1, la1


la2)	loopnd

fini