main() := babbage(0);
babbage(current) :=
current when current * current mod 1000000 = 269696
else
babbage(current + 1);