implement CountToInfinity;

include "sys.m"; sys: Sys;
include "draw.m";
include "ipints.m"; ipints: IPints;
	IPint: import ipints;

CountToInfinity: module {
	init: fn(nil: ref Draw->Context, nil: list of string);
};

init(nil: ref Draw->Context, nil: list of string)
{
	sys = load Sys Sys->PATH;
	ipints = load IPints IPints->PATH;

	i := IPint.inttoip(0);
	one := IPint.inttoip(1);
	for(;;) {
		sys->print("%s\n", i.iptostr(10));
		i = i.add(one);
	}
}