implement Argv;

include "sys.m";
	sys: Sys;
include "draw.m";

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

init(nil: ref Draw->Context, argv: list of string)
{
	sys = load Sys Sys->PATH;
	for(p := tl argv; p != nil; p = tl p)
		sys->print("%s\n", hd p);
}