implement Do;

include "yak.m";
	yak : Yak;


include "draw.m";

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

init(nil: ref Draw->Context, nil: list of string)
{
	sys = load Sys Sys->PATH;
	yak = load Yak Yak->PATH;
	bufio = load Bufio Bufio->PATH;

	stdin := bufio->fopen(sys->fildes(0), Bufio->OREAD);

	yak->parse(stdin);
	sys->print("GOOD?\n");
}

# Put Limbo do