{
	print ("0 0");
	print ("1 1");

	a = vector(10 000, n, -1);
	u = 2;

	for (m=2, oo,
		w = m;
		p = 0;
		while (w,
			if (w <= #a && a[w]<0,
				a[w] = p;
				while (a[u]>=0,
					print (u " " a[u]);
					if (u++ > #a,
						break (3);
					);
				);
			);
			w = bitneg(3*w, exponent(3*w)+1);
			p++;
		);
	);
}

quit