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

	a = vector(10 000);
	u = 2;

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

quit