o100 sub
	g02 f400 x1.5 i1.5
	g01 x-1.5
	g91
	g01 y0.10
	g90
o100 endsub

m03 s3000

g0 x0y0z1
g0 x-1.5 y1.5
g01 f50 z-6

o200 repeat [100]
o100 call
o200 endrepeat
m30
%