{
	n=0;
	z=0;
	dir=1;
	k=0;
	i=0;
	for (w=1, oo,
		for (t=1, 2,
			for (s=1, w,
				if (k<=1 || norm(pp-z) < norm(p-z),
					k++;
					if (k>=2,
						print (k-1 " " n-pn);
						if (k==10 000,
							break (3);
						);
					);
					[pp,p]=[p,z];
					[ppn,pn]=[pn,n];
				);

				n++;
				z+=dir;
			);
			dir*=I;
		);
	);
}

quit