namespace;
include rt, std;

// the command line and the environment, as the host hands them over. argv[0]
// is the program path, and <eval> when the source came from stdin, so argc is
// 1 even with nothing on the command line. run through a shell with no extra
// arguments, which is how test.sh calls it, so the line is fixed.
include std;

fn main() {
	rt.put_n(std.argc); rt.put_c(32); rt.put_s(std.argv[0]);
	rt.put_c(32); rt.put_c(32); rt.put_s(std.argv[std.argc - 1]);
	// envc counts every entry, envp holds NAME=value strings
	rt.put_c(32); rt.put_n(std.envc > 0);
	let hit = 0;
	for (int i = 0; i < std.envc; i++) if (rt.eq_w(std.envp[i], "ZC_ARG_TEST=ok")) hit = 1;
	rt.put_c(32); rt.put_n(hit);
	return 0;
}