namespace;
include rt, std;

// print the length and first character of the file named by ZC_FILE
include std;
fn main() {
	let name[80], s, n;
	n = std.Host.env("ZC_FILE", name, 80);
	if (n < 0) { rt.put_s("no file\n"); return 1; }
	s = rt.readfile(name);
	if (!s) { rt.put_s("can't read\n"); return 1; }
	rt.put_n(rt.len_w(s)); rt.put_c(' '); rt.put_c(s[0]); rt.put_c(10);
	rt.free(s);
	return 0;
}