RosettaCodeData/Task/Babbage-problem/Limbo/babbage-problem.limbo

implement Babbage;

include "sys.m";
    sys: Sys;
    print: import sys;
include "draw.m";
    draw: Draw;

Babbage : module
{
    init : fn(ctxt : ref Draw->Context, args : list of string);
};

init (ctxt: ref Draw->Context, args: list of string)
{
    sys = load Sys Sys->PATH;
    current := 0;
    while ((current * current) % 1000000 != 269696)
        current++;
    print("%d", current);
}