RosettaCodeData/Task/Babbage-problem/SequenceL/babbage-problem.sequencel

main() := babbage(0);

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